يظهر لي خطا في هذا الكود ممكن اعرف الحل !
Private Sub CommandButton3_Click()
RM3.Range("j5").Value = RM2.Range("E5").Value
Dim Lsrch, Sr1, Sr2, Lf As Integer
Lsrch = RM3.Range("k5").Value
For Sr1 = 1 To 4
For Sr2 = 5 To 8
For Lf = 5 To 11 Step 2
RM2.Cells(Lf, "G").Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, "D").Value = RM3.Cells(Lsrch, Sr2).Value
Sr1 = Sr1 + 1
Sr2 = Sr2 + 1
Next Lf
Next
Next
Clrear_Data
End Sub