Çözüldü Çalışma Kitabı İçerisindeki Sayfalara Başlıkları Yazdırma,

[gicimi]

Merhaba;

A:J arasındaki başlık verilerini Excel Çalışma Kitabının içerisindeki "Sayfa1,Sayfa2,Sayfa3...... kaç adet sayfa oluşturulmuş ise makro ile oluşturulan tüm sayfalara eklemek istiyorum. Satır biçimleri, yazı tipi, Dolgu rengi gibi tüm özellikleriyle aktarılmasını nasıl yapabilirim.

 

[turist]

Sub HerSayfa()
Dim wsVar As Worksheet
 sg = Sheets("Örnek").Range("A1").EntireRow.Height
Dim i As Integer
For i = 1 To Sheets.Count
    Sheets("Örnek").Range("A1:J1").Copy
    With Sheets(i).Range("A1")
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteValues, , False, False
    .PasteSpecial xlPasteFormats, , False, False
    Application.CutCopyMode = False
End With
Sheets(i).Range("A1").RowHeight = sg
    Next i
End Sub

Dosyanızda "Örnek" isimli bir sayfa oluşturun, istediğiniz şekilde başlıklarınızı bu sayfada belirleyin.
Yukarıdaki kodu çalıştırıp deneyin.

 

[gicimi]

SN. @turist teşekkür ederim. Kolaylıklar.

 

[turist]

Sağ olun.