اوفست بن اكسل

لازال يظهر لي خطا في خيار التعديل والحذف ممكن احد يزين لي الملف بالمرفقات :) 5566.xlsm اخوي الملف بالمرفقات ليت تسوية لي 5566.xlsm

هذا الملف اخي الكريم لازال الخطاء

يظهر لي خطا في هذا الكود ممكن اعرف الحل ! 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