الاكواد بداخل المديول بالضعط على الزر
ياسر خليل أبو البراء
Sub mh1()
Range("p2").FormulaR1C1 = "=INDEX(RC[-7]:R[131]C[-3],MATCH(R2C7,R2C2:R133C2,0),1)"
Range("p2").Value = Range("p2").Value
End Sub
Sub mh2()
Range("p2").FormulaR1C1 = "=INDEX(RC[-7]:R[131]C[-3],MATCH(R2C7,R2C3:R133C3,0),1)"
Range("p2").Value = Range("p2").Value
End Sub
Sub mh3()
Range("p2").FormulaR1C1 = "=INDEX(RC[-7]:R[131]C[-3],MATCH(R2C7,R2C4:R133C4,0),1)"
Range("p2").Value = Range("p2").Value
End Sub
Sub mh4()
Range("p2").FormulaR1C1 = "=INDEX(RC[-7]:R[131]C[-3],MATCH(R2C7,R2C5:R133C5,0),1)"
Range("p2").Value = Range("H2").Value
End Sub