طلب تعديل في كود نسخة احتياطية

[زياد عبد الجليل]

السلام عليكم:

وجدت في المنتدى ملف رائع لاحد اساتذتنا الافاضل يقوم بعمل نسخة احتياطية لعدد محدد من الاوراق اريد عمل تعديل على الجزء التالي من  الكود حيث ينص على نقل الورقة تحت تسمية ("1") و ("2") فقط وانا اريد مثلا اذا كان الملف به عدد كبير من الصفحات لا يمكن كل مرة كتابة اسم الصفحة كما ان الكود سيصبح طويل انا اريد اختصار الكود و جعله مثلا ينسخ الصفحات من 1to 20 مثلا

- الطلب الثاني هل يمكن وضع مسار لتخزين النسخة الاحتياطية مثلا تخزينه في d داخل مجلد اسمه نسخة مثلا ولكم مني جزيل الشكر

     On Error GoTo ErrCatcher
        Sheets(Array("1", "2")).Copy 
On Error GoTo 0
'هنا اسماء الاوراق  انا اريد مثلا ان يكون الكود مثلا من الورقة 1 الى الورقة 20 حيث التسمية عمل مؤرق خاصة اذا كان الملف به عدد كبير من الصفحات
        

 

SaveSomeSheets.rar