header and footer

[ozkankac]

Merhaba:

100 den fazla sheetin oldugu bir Workbookta Bütün Sayfaların Alt veya üst başlıklarına herhangi bir sheet ' deki hücre değerini yazdırabilirmiyiz.


Selamlar.

 

[Levent Menteşoğlu]

100 den fazla sheetin oldugu bir Workbookta Bütün Sayfaların Alt veya üst başlıklarına herhangi bir sheet ' deki hücre değerini yazdırabilirmiyiz.

Elbette yazdırabilirsiniz. Yazdıracağınız verilerin hangi sayfa ve hücrelerden aldıracağınızı ve üst ve alt bilginin hangi kısma yazılacağını belirtirmisiniz. (sol,orta veya sağ)

 

[ozkankac]

Re:

Sağ alt olsun
tesekkur ederim.

 

[Levent Menteşoğlu]

Yazdırılacak yazı hangi sayfa ve hücrelerden alınacak.

 

[Kemal Demir]

Sub AltÜstbaslik()
For x = 1 To Sheets.Count
Sheets(x).Select
LeftHeader = [a1]
CenterHeader = [b1]
RightHeader = [c1]
LeftFooter =[d1]
CenterFooter=[e1]
RightFooter=[f1]
    With ActiveSheet.PageSetup
        .LeftHeader = [a1]
        .CenterHeader = [b1]
        .RightHeader = [c1]
        .LeftFooter = [d1]
        .CenterFooter = [e1]
        .RightFooter = [f1]
            End With
Next
End Sub

NOT:Her sayfanın bilgileri ilgili sayfanın a1,b1,c1,d1,e1 ve f1 değerlerinden alınmaktadır.

Eksik anlamadıysam alt ve üst başlıkları koymanızı yarayabilir

 

[Levent Menteşoğlu]

Örneğin Sayfa1 A1 hücresindeki değer aşağıdaki kod ile sağ alt bilgi olarak yazırlır.

Sub footer()
For a = 1 To Sheets.Count
Sheets(a).PageSetup.RightFooter = [sayfa1!a1]
Next
End Sub

 

[ozkankac]

re

Sub AltÜstbaslik()
For x = 1 To Sheets.Count
Sheets(x).Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = " &P "
.RightFooter = ""
End With
Next
End Sub


2 sorum daha var

" &P " 2/10 gibi nasıl yapabilirm bi kac denedim ama olmadi. &[Page]/&[Pages] gibi

birde herhangi bir excel sayfasındaki hücre icindeki değeri yazıdırmak istesem mesela

=bilgi!a32 gibi

 

[ozkankac]

Re:

TAMAM COK TESEKKUR EDERİM cok saolun

Sub footer()
For a = 1 To Sheets.Count
Sheets(a).PageSetup.RightFooter = [sayfa1!a1]
Next
End Sub