خطأ فى كود ترحيل

[محمد عبد القادر]

ما الخطأ فى هذا الكود و سلفا لكم جزيل الشكر

Book1.rar

[سليم حاصبيا]

الماكرو الصحيح والاسرع

Sub Mohamed()
Dim my_sh As Worksheet
Dim lr

With Sheets(1)
  For Each f In .Range("f2", .Range("f1").End(4))
    If f <> "" Then
    'هذا السطر للتأكد من وجود الشيت
    '++++++++++++++++++++++++++++++++++++++++++++++
    If Evaluate("ISREF('" & f.Value & "" & "'!A1)") = False Then _
        GoTo next_f
    '++++++++++++++++++++++++++++++++++++++++++++++
        Set my_sh = Sheets(f.Value & "")
        lr = my_sh.Cells(Rows.Count, 1).End(3).Row + 1
        my_sh.Cells(lr, 1).Resize(, 6).Value = _
       .Cells(f.Row, 1).Resize(, 6).Value
    End If
next_f:
  Next
End With
End Sub

الملف مرفق

 

 

ABD KADER.xlsm

[محمد عبد القادر]

استاذنا الفاضل لا حرمنا الله من افضالك

[أحمد يوسف]

أستاذ

محمد عبد القادر

 

أين الضغط على الإعجاب ؟! 💙