كود نسخ صفحة عدة مرات

[عمار الدخخنى السعيد]

السلام عليكم اساتذتى الكرام

ممكن المساعدة  صممت شيت أكسل به جدول وكنت عايز انسخ الصفحة التى بها الجدول 15 مرة توفيرا للوقت ولكن تواجهنى مشكلة وهى ظهور الرسالة دى عند القيام بنسخ الصفحة                                 ممكن المساعدة فى طريقة استطيع من خلالها نسخ الصفحة الى عدة صفحات   This command not aviliable in this workbook 

ولكم جزيل الشكر ,مرفق الملف

برنامج شئون عاملين مدرسة.zip

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

الملف عندك كبير جداَ حوالي 14 ميغا مع انه فارغ   

لماذا يا ترى 

امسح الملف نهائياً  وقم بتصميم ملف بديل عنه بدون تنسيقات ملونة ( اللون الاصفر على كامل الصفحة لا ضرورة له)

ثم جرب هذا الماكرو

Option Explicit

Sub ADD_SHE()
Dim I%, T%: T = 2
For I = 1 To 14
Sheets(1).Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = T
T = T + 1
Next
End Sub

 

[عمار الدخخنى السعيد]

شكررا جزيلا أستاذ سليم