Alt bilgi Gerektiğinde yazdırılmasın

[garbanzo]

Merhaba,

100 sayfalık bir excel kitabında,çıktı alırken yada pdf yaparken her sayfanın altına Tarih geliyor alt bilgi olarak.Bunu istediğim zaman gelmesini istemiyorum.100 sayfayı tek tek değiştirmek istemiyorum.Kolay bir yolunu bilen var mıdır ?

 

[Bagcivan]

sayda düzeni>başlıkları yazdır>alt/üst bilgi'den alt bilgiyi kaldırın.

 

[garbanzo]

Merhaba,

öyle yapıldığında sadece bulunduğum sayfadaki alt bilgi kalkıyor, geri kalan sayfalarda gene çıkıyor.Tüm kitaba uygulayamıyor galiba.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz, bütün sayfalardaki sağ Alt Bilgiyi siler.

Sub AltBilgi()
For s = 1 To Sheets.Count
Sheets(s).PageSetup.RightFooter = ""
Next
End Sub

 

[garbanzo]

Aşağıdaki kodu deneyiniz, bütün sayfalardaki sağ Alt Bilgiyi siler.

Sub AltBilgi()
For s = 1 To Sheets.Count
Sheets(s).PageSetup.RightFooter = ""
Next
End Sub

Teşekkür ederim kod çalışıyor ,buna Left.footer ve center.footer ı nasıl ekleyebiliriz.

 

[Seyit Tiken]

Sheets(s).PageSetup.LeftFooter = ""
Sheets(s).PageSetup.CenterFooter = ""