sayfa yapısında özel alt bilgi sorunu

[hikmet]

merhaba hocalarım ve arkadaşlarım;
excel sayfasını yazdırırken sayfa yapısı düzeninde olan üstte yenilenecek satırlar bölümünü seçebiliyoruz fakat altta da yazdırılmlası gereken satırlar olduğu zaman aynı görevi görebilecek bir makro varmıdır. özel alt bilgi kısmına manuel olrak kendimiz satır girmeden sayfa altındaki iki satırı her sayfada yeniletmek istiyorum. ilginize teşekkür ederim.

 

[Recep İpek]

Sayın hikmet

Tam sizin istediğiniz gibi değil ama, fikir vermesi açısından aşağıdaki kodları inceleyebilirsiniz.
Burada sayfanın Footer özelliğini kullanmaktadır.

Ama bir türlü satir=[D25:F25] olayını yapamadım.

[vb:1:f958eff38a]
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sayfa, satir As Variant
Set sayfa = Sheets(1)
satir = "www.excel.web.tr / 1 Numara"
'sayfa.PageSetup.CenterFooter = ""
sayfa.PageSetup.CenterFooter = satir
End Sub[/vb:1:f958eff38a]

 

[mehmett]

Bu konu forumda daha önce tartışılmıştı ve (kim olduğunu hatırlayamadığım) bir üyenin farklı bir önerisi vardı.

Altta yinelenmesi istenen satırlar resim olarak kaydedilir ve bu resim Özel alt bilgi menüsünün resim ekle seçeneğinden alt bilgi olarak eklenir.

Örnek dosya ektedir.

 

[Recep İpek]

Sayın mehmett hocam,

Sorunun öncesini bilemediğimden sadece öğrenmek için ,
alt bilgi alanına resim şeklinde yazı ekleme ile normal yazı yazma arasında ne fark olabilir?

:düsün:

 

[mehmett]

Altta yinelenen satırlar için ekleyeceğimiz resim excel sayfasından kopyalanacağı için kenar çizgileri, yazı ve dolgu renkleri, yazı tipleri gibi bütün excel biçimlerini kullanabiliriz. Ekteki dosyada daha detaylı bir örnek var.

 

[Recep İpek]

Teşekkürler hocam.Şimdi anlaşıldı. k::

 

[AS3434]

Sn mehmett'in bahsini ettiği topik . İzahatlı bir şekilde anlatıyor.
http://www.excel.web.tr/viewtopic.php?p=93937#93937

 

[Recep İpek]

Ama bir türlü satir=[D25:F25] olayını yapamadım.

Bununla ilgili olarak örneğin A25 ile F25 satırındaki verileri satır değişgenine daha kısa nasıl tanımlayabiliriz?

Şu an yapabildiğim;
satır=[A25]&[B25]&[C25]...&[F25]