Çözüldü Üst-Alt bilgi alma

[askan]

Arkadaşlar excel da yazdır menüsünde altbilgi ve üst bilgileri hücreye veya hafızaya alabileceğimiz bir komut var mıdır?
Teşekkür ediyorum.

 

[himmgarip]

 

[arschimet]

Public Bilgi as String
Sub Ust_Bilgi()
'Kullanılabilen parametreler
With ActiveSheet.PageSetup
' .LeftHeader = ""
' .RightHeader = ""
.CenterHeader = "MERHABA"
' .LeftFooter = ""
' .RightFooter = ""
' .CenterFooter = ""
End With
Bilgi = ActiveSheet.PageSetup.CenterHeader 'Bilgi Public tanımlı olduğundan hafızaya alındı
Activesheet.cells(1,1)=Bilgi 'Aktif sayfanın A1 hücresine yazıldı
MsgBox Bilgi
End Sub

 

[askan]

Public Bilgi as String
Sub Ust_Bilgi()
'Kullanılabilen parametreler
With ActiveSheet.PageSetup
' .LeftHeader = ""
' .RightHeader = ""
.CenterHeader = "MERHABA"
' .LeftFooter = ""
' .RightFooter = ""
' .CenterFooter = ""
End With
Bilgi = ActiveSheet.PageSetup.CenterHeader 'Bilgi Public tanımlı olduğundan hafızaya alındı
Activesheet.cells(1,1)=Bilgi 'Aktif sayfanın A1 hücresine yazıldı
MsgBox Bilgi
End Sub

Hocam teşekür ediyorum. Emeğinize sağlık !