[ÇÖZÜLDÜ] En son dolu olan satırın altına, makro ile tutanak tutmak..

[enteresan]

Ek'te gönderdiğim dosyada da görüleceği gibi, kullanmakta olduğum bir liste var ve bu liste bazen 10 satır, bazen de 25 satır olabilmekte. Yapmak istediğim ise en son dolu satırdan sonra listenin altını bağlayıp, tutanak tutmak istiyorum. Aslında 1'den çok sayfa olduğunda alttaki isimleri her sayfanın altında görmek ve en son sayfaya da sayfa kapama işlemi yapılsa daha iyi olur ama nasıl olacak bilemiyorum... Ayrıntıyı ökte gönderdiğim dosyada açıklamaya çalıştım. Yardımcı olacaklara minnettar olurum. Saygılar...

 

[Necdet]

Merhaba,

Kabaca birşeyler yaptım, düzenlemek gerekebilir. Paraflar Sayfa2'den alınıyor.

 

[enteresan]

Merhaba,

Kabaca birşeyler yaptım, düzenlemek gerekebilir. Paraflar Sayfa2'den alınıyor.

Sevgili Necdet Bey, elinize sağlık. Çok güzel olmuş. Birden fazla sayfa olduğunda da son sayfadan önceki sayfalara sadece isimleri açtırıp, son sayfanın altını kapatabilir miyiz... Saygılarımla..

 

[Necdet]

Merhaba Sayın enteresan,

Şu anki bilgimle istediğiniz şey beni aşıyor malesef. Her sayfada kaç satırın olduğunu saptamak ve uygun şekilde parafları eklemek gerçekten benim için zor.

Bende sizin gibi çözümü merak ediyorum.

Saygılar.

 

[enteresan]

Merhaba Sayın enteresan,

Şu anki bilgimle istediğiniz şey beni aşıyor malesef. Her sayfada kaç satırın olduğunu saptamak ve uygun şekilde parafları eklemek gerçekten benim için zor.

Bende sizin gibi çözümü merak ediyorum.

Saygılar.

İlgi ve alakanıza teşekkür eder saygılar sunarım. Her sayfada 6 ncı satır ile 50'nci satırı kullanacağımı düşünerek, 50'nci satırın altına isimleri açmak istediğimi belirtsem diye düşündüm. Sanırım bu verilere göre bişeyler çıkarmak mümkündür. Sitedeki uzman arkadaşlar yardımcı olacaklardır eminim. Tekrar saygılarımla..

 

[AS3434]

Şöyle birşey olabilirmi acaba....

 

[enteresan]

Şöyle birşey olabilirmi acaba....

AS3434, ilgine teşekkür ederim ama, ben örnek dosyayı çözemedim. Yani benim istediğim daha farklı bir şey sanırım. Yine de teşekkürler. İyi geceler...

 

[AS3434]

Birden fazla sayfa olduğunda da son sayfadan önceki sayfalara sadece isimleri açtırıp, son sayfanın altını kapatabilir miyiz

Her sayfanın altına alt bilgi olarak imza şablonu açıyor ve son sayfada Sn. Necdet Yesertener'in kodları yazan yerede sizin istediğiniz gibi kapatma işlemi yapıyor.

Kapatma kodlarını yazmadım. (Sn. Yesertener yazmış, onunla ilgili yerleri kopyalayın. Düzenleyemezseniz yardımcı oluruz))

Makroyu çalıştırdıktan sonra önizleme yaparsanız farkedersiniz.

 

[enteresan]

Her sayfanın altına alt bilgi olarak imza şablonu açıyor ve son sayfada Sn. Necdet Yesertener'in kodları yazan yerede sizin istediğiniz gibi kapatma işlemi yapıyor.

Kapatma kodlarını yazmadım. (Sn. Yesertener yazmış, onunla ilgili yerleri kopyalayın. Düzenleyemezseniz yardımcı oluruz))

Makroyu çalıştırdıktan sonra önizleme yaparsanız farkedersiniz.

Evet sevgili AS3434, şimdi farkettim. Güzel olmuş. Ben bunu sayfa alt bilgi ve üst bilgi bölümünden makrosuz yaptım ama sağ taraftaki alt bilgi sağa yanaşık olduğundan düzeltemedim ve vazgeçtim. Burada da farkettiyseniz sağ tarafa yanaşık çıkıyor. Onu düzeltebilirsek sanırım güzel olacak. Tekrar saygılarımla...

 

[AS3434]

Ortalanmış hali.

Sub altbilgi2()
t = [A65536].End(3).Row + 4
Cells(t - 2, "A") = "Sayın Necdet YESERTENER'in kodları"
ActiveSheet.PageSetup.PrintArea = Cells(1, 1).Address & ":" & Cells(t, 9).Address
ActiveSheet.PageSetup.LeftFooter = "         İMZA" & Chr(10) & Chr(10) & "ADI ve SOYADI" & Chr(10) & "      UNVAN"
ActiveSheet.PageSetup.CenterFooter = "İMZA" & Chr(10) & Chr(10) & "ADI ve SOYADI" & Chr(10) & "UNVAN"
ActiveSheet.PageSetup.RightFooter = "İMZA        ." & Chr(10) & Chr(10) & "ADI ve SOYADI" & Chr(10) & "UNVAN     ."
End Sub

Adı Soyadı ve Ünvanı yazan yerlere Başka yerden hücre adresi verirseniz, isim ve ünvan yazar.