Alt Bilgi ve üst bilgiyi makro ile yazdırma

[Hüseyin61]

Sub alt_üst()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Times New Roman,Kalın""&12" & [A3] & Chr(10) & [A4]
.CenterFooter = "&""Times New Roman,Kalın""&12" & [A3] & Chr(10) & [A4]
.RightFooter = ""
End With
End Sub

Yukarıdaki makroları kullanarak sayfa içerisinde hücreden bilgi alarak alt ve üst bilgileri yazdırabiliyorum. Ancak sayfa 1 de a1 hücresine yazdığım veriyi diğer sekmelerdeki alt bilgi ve üst bilgiye nasıl eklerim.

 

[ÖmerFaruk]

LeftFooter = "&""Times New Roman,Kalın""&12" & [A3] & Chr(10) & [A4]

yerine aşağıdaki gibi deneyin.

LeftFooter = "&""Times New Roman,Kalın""&12" & Worksheets("Sayfa1").[A1]

 

[Hüseyin61]

LeftFooter = "&""Times New Roman,Kalın""&12" & [A3] & Chr(10) & [A4]

yerine aşağıdaki gibi deneyin.

LeftFooter = "&""Times New Roman,Kalın""&12" & Worksheets("Sayfa1").[A1]

Çok Teşekkür ederim Ömer Faruk Bey

 

[Hüseyin61]

Ömer Faruk bey, kodu ekledim ama bazı sayfalarda alt bilgi görünmüyor. Sebebi ne olabilir. Gözümden kaçan bişey mi var. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Sanırım kodu tüm sayfalarda çalıştırmadığınız için sorun yaşıyorsunuz. Aşağıdaki kodu deneyiniz.

Sub alt_üst()
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "Öğrenci Listesi" Then
            sh.Select
            With ActiveSheet.PageSetup
                .LeftHeader = ""
                .CenterHeader = ""
                .RightHeader = ""
                .LeftFooter = "&""Calibri,Kalın""&12" & Worksheets("Öğrenci Listesi").[H17] & Chr(10) & Worksheets("Öğrenci Listesi").[F17]
                .CenterFooter = "&""Calibri,Kalın""&12" & Worksheets("Öğrenci Listesi").[H18] & Chr(10) & Worksheets("Öğrenci Listesi").[F18]
                .RightFooter = ""
            End With
        End If
    Next
    
    MsgBox "Sayfa Alt-Üst bilgileri revize edilmiştir."
End Sub

 

[Hüseyin61]

C++:
Sub alt_üst()
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Öğrenci Listesi" Then
sh.Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Calibri,Kalın""&12" & Worksheets("Öğrenci Listesi").[H17] & Chr(10) & Worksheets("Öğrenci Listesi").[F17]
.CenterFooter = "&""Calibri,Kalın""&12" & Worksheets("Öğrenci Listesi").[H18] & Chr(10) & Worksheets("Öğrenci Listesi").[F18]
.RightFooter = ""
End With
End If
Next

MsgBox "Sayfa Alt-Üst bilgileri revize edilmiştir."
End Sub

Teşekkür ederim . Elinize Sağlık