Bir Excel Sayfanın Özelliklerin Kopyalama

[fyucel]

Oluşturduğum bir excel sayfasının biçimini Çalışma kitabındaki tüm sayflara makro ile kopylama isityorum, yardım ederseniz memnu olurum.

 

[ozgretmen]

Sayfa1 isimli sayfanın biçimini diğer tüm sayfalara verir.iyi çalışmalar.

Sub biçimlendir()
On Error Resume Next
Dim sh As Worksheet
For Each sh In Worksheets
    Sheets("Sayfa1").Cells.Copy
    sh.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
Sheets("Sayfa1").Select
Application.CutCopyMode = False
End Sub

 

[fyucel]

Teşekkür Ederim Çok işime yarayacak

 

[ozgretmen]

Teşekkür Ederim Çok işime yarayacak

Rica ederim.İyi çalışmalar...