اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

 

SaveSomeSheets.rar

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information