aboamer555 قام بنشر مارس 24, 2021 مشاركة قام بنشر مارس 24, 2021 الاساتذه الافاضل في المنتدى ارجو المساعده في نسخ نموذج عمل لعدد كبير من الشيتات بنفس الورقه مع الحفاظ على اسم الاوراق ... كما في المثال صوره اوضح لدي ملف اكسل يحتوي على مئات الصفحات واريد ان انسخ النموذج الذي في الصفحة الأولى على جميع الصفحات بدون تغيير اسماء الصفحات اي احافظ على اسم الصفحات واضيف اليه النموذج الموجود في الصفحه الاولى بدلا عن نسخ ولصق كل صفحه لوحدها لان ذلك ياخذ الكثير من الوقت وشكرا لكم test.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر مارس 26, 2021 أفضل إجابة مشاركة قام بنشر مارس 26, 2021 ببساطة يمكنك استخدام هذا الكود لطلبك Sub format() For Each WS In Worksheets With WS i = .Range("a" & Rows.Count).End(3).Row Sheets("السويد").Range("A1:xfd12").Copy .Range("A" & i) End With Next WS End Sub test1.xlsm 3 رابط هذا التعليق شارك More sharing options...
aboamer555 قام بنشر مارس 26, 2021 الكاتب مشاركة قام بنشر مارس 26, 2021 شكرا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان