المساعده في نسخ شيت لعدد كبير من الشيتات بنفس الورقة

[aboamer555]

  الاساتذه الافاضل في المنتدى ارجو المساعده في نسخ نموذج عمل 

لعدد كبير من الشيتات بنفس الورقه

مع الحفاظ على اسم الاوراق ... كما في المثال

صوره اوضح  لدي ملف اكسل يحتوي على مئات الصفحات واريد ان انسخ النموذج الذي في الصفحة الأولى على جميع الصفحات بدون تغيير اسماء الصفحات

اي احافظ على اسم الصفحات واضيف اليه النموذج الموجود في الصفحه الاولى

بدلا عن نسخ ولصق كل صفحه لوحدها لان ذلك ياخذ الكثير من الوقت 

وشكرا لكم

test.xlsm

[Ali Mohamed Ali]

ببساطة يمكنك استخدام هذا الكود لطلبك

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

[aboamer555]

شكرا جزاك الله خيرا