تکرار یکسری دستور در چند شیت

[aabbasi4790]

سلام
ضمن تشکر از کلیه استادید که وقت میزارن
تو فایل پیوست من دستوری میخوام بنویسیم تا :
1- از شیت 1 تا هر تعداد شیت که داشته باشم یا بعداً ایجاد کنم
2- کل صفحه رو انتخاب کنه رنگ تم رو no fill کنه
3- و کل صفحه رو کپی کنه و همون جا پیست ولیو کنه تا فرمولها ثابت بشه
4- و آخر برگرده به شیت اولی

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[aabbasi4790]

یعنی این دستور رو به بقیه شیت ها تعمیم بده تا کل شیتها تمام بشه
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

[generalsamad]

با سلام
دوست عزیز قبل از ایجاد پست دقت کنید که سوال رو در تالار مربوطه بیان کنید
سوال انتقال داده شد

ببینید این کد مد نظرتون هست

Sub ChangeFill()
For s = 1 To Sheets.Count
    Sheets(s).Select
    Cells.Select
    With Selection
    Cells.Select
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
Next s
End Sub