Özel üst bilgiye, A1 hücre içeriğini yazdırmak

[mozdem]

Bir sayfanın tarih ,saat,toplam sayfa, sayfa adı gibi bilgileri özel üst yada alt bilgilere girebiliyoruz.
Yapmak istediğim örneğin A1 hücresindeki metini üst bilginin sağına yazsın.

olabilir mi? Teşekkürler

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub özel_üst_bilgi()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = [a1]
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
End Sub

 

[mozdem]

Teşekkür

Sayın Uzmanamale,

Yaptığım çalışma kitabı vba kodlar ile dolu idi.Sayfa aktarmaları vs. Tüm bunları baştan sona kontrol etmem ve değiştirmem gerekiyordu. Siz bunun çözümünü yazmamış olsaydınız en üste satır eklemek suretiyle yapmak zorunda kalacaktım.
Beni bu sorundan kurtardınız. Çokçok teşekkür ederim.

ellerinize sağlık,iyi çalışmalar