اوفست بن اكسل

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

5566.xlsm

6 ساعات مضت, حسونة حسين said:

ارفق ملف اخى الكريم 

اخوي الملف بالمرفقات ليت تسوية لي 

5566.xlsm

3 ساعات مضت, حسونة حسين said:

ارفق ملف اخى الكريم 

هذا الملف اخي الكريم

2 ساعات مضت, عبدالفتاح في بي اكسيل said:

مجرد تخمين 

خطا  في  كتابة  الصيغة 

RM2.Cells(Lf, "G").Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, "D").Value = RM3.Cells(Lsrch, Sr2).Value

 

يجب ان تكون 

RM2.Cells(Lf, 7).Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, 4).Value = RM3.Cells(Lsrch, Sr2).Value

لازال الخطاء

يظهر لي خطا في هذا الكود ممكن اعرف الحل !

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