başlıkları nasıl kopyalarım

[cemşir79]

ekteki dosyamda baskı sayfasındaki başlıkları nasıl diğer sayfalara aktarabilirim

 

[askm]

Sub askm()
Sheets("baskı").Select
Range("A1:G5").Select
Selection.Copy
For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> "baskı" Then
    
        Sheets(i).Select
        ActiveSheet.DrawingObjects.Delete
        Range("A1:G1").Select
        ActiveSheet.Paste
        
        Range("A1:G1").Select
        Selection.RowHeight = 32.25
        Range("A2:G2").Select
        Selection.RowHeight = 21.75
        Range("A3:G3").Select
        Selection.RowHeight = 15.75
        Range("F4:G4").Select
        Selection.RowHeight = 19.5
        Range("F5").Select
        Selection.RowHeight = 33.75
    End If
Next i
MsgBox "Başlık kopyalama işleminiz tamamlanmıştır...", vbInformation, "ASKM"
End Sub

 

[cemşir79]

teşekkür ederim askm usta işimi gördü kafama takılan bir soru sormak istiyorum tüm sayfaları hangi kodla seçtin diğer bir soru kapak sayfam olsa idi onu nasıl muaf tutardım yani ona başlık kopyalamısını nasıl engellerdim

 

[askm]

For i = 1 To Worksheets.Count bu satırda 1. sayfadan başla, sayfa sayısı kadar döngüye gir diyoruz. If Worksheets(i).Name <> "baskı" Then burada sayfa ismi baskıdan başlıkları alacağı için bu sayfayı es geçiyoruz. Siz If Worksheets(i).Name <> "baskı" or Worksheets(i).Name <>"kapak" Then yaparsanız kapak sayfasını da pas geçmiş olursunuz.

 

[cemşir79]

Çok teşekkür ederim askm üstad şimdi oldu. Yavaş yavaş çözeceğiz bu işleri

 

[askm]

Rica ederim. Kolay gelsin.