Sayfa Sonu

[hüseyin balcı]

Mrb,
Bir sayfanın son üç satırına (alt satırına) veri yazdırabilirmiyiz?

 

[Levent Menteşoğlu]

Son üç satır derken 65534 nolu satırdan altımı kasdediyorsunuz. Veri bir yerden buraya kopyalanacakmı, cevap için bu gibi soruların açıklığa kavuşturulması gerekir. Bir makro vasıtası ile veya fonksiyon kullanarak her hücreye veri aktarmak mümkündür. Daha detaylı bilgi verirseniz hatta bir örnek dosya eklerseniz sorunuz daha iyi anlaşılacaktır.

selamlar

 

[hüseyin balcı]

Bir sayfanın son üç satırına derken, bir çalışma sayfasındaki herhangi bir sayfa için kastım... Ã?rneğin; "ÜstYazı" sayfası diye bir çalışma sayfam var. Bu çalışma sayfasındaki birinci sayfanın son üç satırına yazdırmak için kod. Bu sayfanın son üç satırı A48, A49 ve A50'dir.(Yani 48,49 ve 50.satırlar). Ama her sayfanın son üç satırı veri durumuna göre, sayfa kenar boşluklarına göre değişeceği için, son üç satırının belli adresi yoktur. Dolayısıyla kod ona göre yazılmalıdır. Bu son satırdaki hücrelere herhangi bir değer yazılacaktır.

 

[Levent Menteşoğlu]

Belli bir adres olmadan kodu düzenlemek zor,örneğin 47. satıra kadar bütün satırlar dolu ise 48. satırı seçtirmek zor olmayacaktır. Ama bir önceki satır dolu olmalıdır. Fakat diyelimki son dolu satır 47 değilde 35 bu durunda yazdırma 36. satırdan başlayacaktır. Sorunuzdan anladığım mantık bu ise eki inceleyiniz.

 

[hüseyin balcı]

Sayın leventm, dediğiniz gibi zorluk burada işte... Belli bir adres olmadığı için bir sayfanın son üç satırını tespit etmek gerekiyor. Sonra bu üç satıra sizin de önerdiğiniz kodlar ile yazdırmak mümkün.
Yalnız şöyle birşey var: Sayfa Yapısında Ã?zel Altbilgi'den üç satırlık yazı yazarak sayfa sonuna yerleşiyor. Fakat buradaki sorunda her sayfada gözükmesi. Yardımcı olacaklara belki bir fikir olabilir.

 

[Levent Menteşoğlu]

Bir örnek dosya eklerseniz sanırım sorunuz daha iyi anlaşılacaktır.

 

[hüseyin balcı]

Sayın leventm, örnek bir dosya...

 

[Levent Menteşoğlu]

Ekte yeni bir düzenleme yaptım sanırım isteğinizi karşılayacaktır. Arada boşluklar bile olsa son satırın altından başlayacaktır. Burada a,b ve c yazan yerlere kendini metinlerinizi yazınız.

[vb:1:98facf4cdd]Sub sonüçsatır()
a = Cells(65536, 1).End(xlUp).Row
Cells(a + 1, 1) = "a"
Cells(a + 2, 1) = "b"
Cells(a + 3, 1) = "c"
End Sub[/vb:1:98facf4cdd]

 

[hüseyin balcı]

Sayın leventm,

Sayfa sonu konusunda anlaşamadık. Ã?rnek dosyamda da belirttiğim gibi, bir sayfanın kesik kesik çizgi ile çerçevelenmiş sayfa kenarlıkları vardır. Sayfanın alt kenarının üstünde bulunan son üç satırdır kastım. Sizin önerdiğiniz kod ise, kastettiğim son çü satıra değil de bir sayfada bulunan en alttaki verinin altına yazmaktadır.

 

[Levent Menteşoğlu]

Sn hüseyin balcı

Sorunuzla ilgili bir örnek daha sunuyorum. Burada, sayfa altına yazı, özet alt bilgi özelliği kullanılarak yazılmıştır.