üst bilgiyi hücreden alma

[kneehot]

selamlar arkadaslar.elımde bır kod var bu altbilgi icin aynı anda bırde ust bılgı ıcın hucreden aldırmak ıstıyorum.kodu kopyalayıp altına yapıstırdım ve koddakı alt yazan yerı üst yazdım olmuyor.yardımcı olursanız cok sevınırım.

Sub alt_bilgi()
With ActiveSheet.PageSetup

.CenterFooter = [a1]

End With
End Sub

 

[kneehot]

sanırım degıstırdıgım yer kod ısmı

 

[dEdE]

Merhaba,
A1 hücresindeki değeri

.CenterFooter = [a1]

Ortalanmış Altbilgi olarak yazar

A1 hücresindeki değeri

.CenterHeader = [a1]

Ortalanmış Üstbilgi olarak yazar