تكرار كود

[على حسن]

المطلوب كود لتعديل كلمة بدلات الى بدل طبيعة عمل و ادراج بعدها عمود ويكتب به حوافز

وللعلم الشيتات الاصليه اكثر من 1000 شيت

تكرار بالكود.xlsx

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

حدد كل الصفحات (او عدد منها)دفعة واحدة وقم بتنفيذ هذا الماكرو

Option Explicit

Sub Salim_Macro()
Dim My_St1$: My_St1 = "بدلات طبيعة" & Chr(10) & " عمل"
Dim My_St2$: My_St2 = "حوافز"

    Columns("E:E").Insert Shift:=xlToRight
    With Range("d1")
   .Value = My_St1
   .Offset(, 1) = My_St2
    End With
End Sub

 

[أبوســـارة1973]

تم عمل المطلوب:

ولكن يتم الضغط على الزر ( تفعيل مرة  واحدة فقط) ،

وقم بنسخ الزر من شيت رقم 1 إلى بقية الصفحات ،

ثم اضغط على الزر في كل صفحة

mustafa_sara_2.xlsx

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

2 دقائق مضت, أبوســـارة1973 said:

تم عمل المطلوب:

ولكن يتم الضغط على الزر ( تفعيل مرة  واحدة فقط) ،

وقم بنسخ الزر من شيت رقم 1 إلى بقية الصفحات ،

ثم اضغط على الزر في كل صفحة

mustafa_sara_2.xlsx

لا حاجة ان يكون هناك زر في كل صفحة

1-اضغط على Ctrl باستمرار واختر الشيتات اللازمة 

2- اترك الزر Ctrl ونفذ الكود

 

[على حسن]

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

ممكن بعد اذنك شرح الكود