مشكلة في كود الترحيل (Procedure too large)

[alliiia]

السلام عليكم ورحمة الله وبركاته .. تحية طيبة، وبعد

هذا ملف لإجازات الموظفين، الكود طويل جدًا، لو توجد طريقة لاختصاره حتى يعمل أكون لكم شاكرًا.

ملف الإجازات - Copy.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الكود

Sub MoveData22()
lr = Sheets("بيانات الموظفين").Cells(Rows.Count, 2).End(3).Row
For n = 3 To lr - 1
Sheets("الإحصائية").Cells(n, Sheets("جدول الإجازات").Range("C5") + 4) = Sheets("جدول الإجازات").Range("AN" & n + 6)
Next n
Range("E9:AI" & lr + 5).ClearContents
End Sub

مع ملاحظة lr هو رقم آخر صف مكتوب فيه في شيت بيانات الموظفين

ورقم العمود في شيت الاحصائية هو نفس رقم الشهر + 4

بالتوفيق

[alliiia]

بسم الله ما شاء الله .. دائما مميز في مساعدتك، ميزك الله بطاعته ورزقك أعلى الجنان. 

 

 

[أ / محمد صالح]

جميعا بإذن الله