-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Üst-Alt bilgi alma
- Konuyu Başlatan askan
- Başlangıç tarihi
- Cevaplar : 3
- Gösterim : 631
-
- Etiketler
- üst-alt bilgi
Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Çözüm
arschimet
Destek Ekibi
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
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
Çözüm
askan
Destek Ekibi
Konuyu Başlatan
Hocam teşekür ediyorum. Emeğinize sağlık !
- Durum