satırdan özel alt ve üst bilgiye veri alma

[İhsan Tank]

arkadaşlar gene ben geldim çalışma sayfasının alt bilgisini herhangi bir satırdan nasıl bilgi alabilirim ayrıca bunu üst bilgi içinde istesem çok mu olur acaba
örnek dosya ektedir ( tabi bakmak isteyenler için )

 

[uzmanamele]

merhaba

aşağıdaki kodda altbilgi veya üstbilginin neresine yazacaksanız kendinize göre uyarlayınız.

Sub AltUstBilgi()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = [A12]
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
End Sub

 

[İhsan Tank]

merhaba

aşağıdaki kodda altbilgi veya üstbilginin neresine yazacaksanız kendinize göre uyarlayınız.

Sub AltUstBilgi()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = [A12]
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
End Sub

hocam çok teşekkür ederim hocam bu kodları daha önce mahmut bayram uzman'ın yapmış olduğu proglamada topluyorum onuda tekrardan çok yakında paylaşacağım

 

[İhsan Tank]

hocam aynı konuda birde istediğim şey sayfa sayısınıda yazdırmak istiyorum

 

[uzmanamele]

hocam aynı konuda birde istediğim şey sayfa sayısınıda yazdırmak istiyorum

merhaba

en basit yöntem makro kaydet yöntemidir.
kaydedilen makroyu inceleyip gerekli değişiklikleri yaparak kendi makronuzu düzenleyebilirsiniz.

 

[İhsan Tank]

hocam teşekkür ederim ama ben bu makro kaydeti tam bilmiyorum acaba açıklamalı bir dosya veya açıklanan bir yer var ise belki kendi kodumuda yazabilirim

 

[uzmanamele]

merhaba

syn Korhan Ayhan'a teşekkürler.

tık tık tık...

 

[İhsan Tank]

merhaba

syn Korhan Ayhan'a teşekkürler.

tık tık tık...

hocam sizede korhan hocamada ve bütün uzman arkadaşlara teşekkür ederim

 

[İhsan Tank]

hocam kusura bakmayın gene takıldım özel altüst bilgileri sayfadan nasıl seçebilirim

 

[uzmanamele]

hocam kusura bakmayın gene takıldım özel altüst bilgileri sayfadan nasıl seçebilirim

merhaba

2. mesajdaki kodlarda; A1:A6 hücrelerine bişeyler yazarak bunları .CenterHeader = [A12] olduğu gibi diğerlerine yazarsanız neyi nereye yazdığını görebilirsiniz.

 

[İhsan Tank]

merhaba

2. mesajdaki kodlarda; A1:A6 hücrelerine bişeyler yazarak bunları .CenterHeader = [A12] olduğu gibi diğerlerine yazarsanız neyi nereye yazdığını görebilirsiniz.

hocam ben başka konuda yardım istemiştim bu kendi kendisini kayıt yapan makroda nasıl yapabilirim onu sormuştum

 

[İhsan Tank]

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = [H5]
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = [H4] & Chr(10) & "Sayfa &P"
.RightFooter = ""
End With
End Sub

hocam sorunumu çözdüm ( yani kendi kendisine kayıt yapan makro'dan işlemleri yaptım ve oradan kopyalayıp buraya yapıştırdım ) yinede çok sağolun.