footer()

[ozkankac]

Merhaba Forum üyeleri ;

bir sayfadaki hücre icindeki yazıyı her sayfanın altına butun sheetlere yazdırıyorum bu yazıyı yazdırırken yazı yuksekliğini ve bicimini rengini aşağıdaki makroda nasil ilave edebilirim. şimdiden teşekkürler


Sub footer()
For a = 1 To Sheets.Count
Sheets(a).PageSetup.RightFooter = [bilgi!b4]

Next

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir satırla font tipini, şeklini ve büyüklüğünü ayarlayabilirsiniz. Renk ayarı yoktur.

Sheets(a).PageSetup.RightFooter = "&""Arial Tur,Kalın""&25" & [bilgi!b4]