خطاء في الطباعة معادلة ميكرو

[خليل القيسي]

معادلة ميكرو للطباعة بمسلسل 
 

الاخوة الافضل للاهمية القصوي الشيت المرفق عند الطباعة بيكون فية خطاء لم استطيع حلة وانا اريد طباعة الاستمارات اليوم للاهمية من فضلك المساعدة ضروري 

مرفق الملف كامل وارجوا الرد بالملف كامل 

طباعة ورقة.xlsm

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

تقريبا قام أحد المستخدمين بحذف أعمدة

حركت خلية العدد الكلي للأسماء من Z2 إلى U2

يمكنك تغيير هذا السطر في الكود

Loop While ActiveCell.Value <= Range("Z2").Value

إلى

Loop While ActiveCell.Value <= Range("U2").Value

بالتوفيق

[خليل القيسي]

جزاكم الله خيراً علي المساعدة 

 

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

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