Belli sütuna odaklı olarak yazdırma

[gecemavisi]

Arkadaşlar aşağıdaki komutu değiştiripte a1ile w500 arası, C sütunun en son dolu olan hücresine kadar yazdırma fonksiyonu sizce nasıldır.

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$a$1:$W$" & [a65536].End(3).Row
ActiveSheet.PrintOut
End Sub

 

[AS3434]

Sn.gecemavisi
Aşağıdaki makroyu inceleyin. İşinize yararsa kullanın....

Sub Yaz()
ActiveSheet.PageSetup.PrintTitleRows = "$1:$5"
ActiveSheet.PageSetup.PrintArea = "$A$1:$W$65536"
ActiveSheet.PrintOut From:=1, To[A1].Value, Copies:=1, preview:=False, Collate:=True
End Sub

Birinci satırda ki $1:$5 Her sayfada yanilenecek satır sayısı.
Eğer her sayfada yenilenecek satırınız yoksa silin.
Üçüncü satırda ki A1 yazdırılacak sayfa sayısı.

 

[omerceri]

say ile başlayan satırı değiştirdim
Private Sub CommandButton1_Click()
say = Range("c1").CurrentRegion.Rows.Count
ActiveSheet.PageSetup.PrintArea = "A1:W" & say
ActiveSheet.PrintOut
End Sub

 

[AS3434]

Eksik yazdım ;
Aşağıdaki formülü A1 hücresine kopyalayın:

=YUKARIYUVARLA((EĞERSAY(W1:W65536;">0")+5)/60;0)

W en son verinin olduğu sütun. Sizde hangi sütunsa o olacak. +5 Başlık satırı için ayrılan kısım, /60 bir sayfaya yazdırmak istediğiniz satır sayısı.

 

[omerceri]

Kusura bakma iyi okumadan acele ile cevap vermişim
say ile başlayan satırı aşağıdaki gibi değiştirirsen
say = Range("c1").End(xlDown).Row

 

[gecemavisi]

Buna benzer b'r sey olacak ama a b c sutununda full formul var. onlarin icinde veri bulunmus yani dageri bos olmayan yere kadar olan kismi yazdiracak.
Sizce bu is nasil olur
saygilarimla...

 

[omerceri]

Buna benzer b'r sey olacak ama a b c sutununda full formul var. onlarin icinde veri bulunmus yani dageri bos olmayan yere kadar olan kismi yazdiracak.
Sizce bu is nasil olur
saygilarimla...

Küçük "ı"ları "i" yapmaktan vazgeçersen iyi olacak, kod yazarken yaparsın bu işi.
Formül sonuçları ne veriyor, sıfırmı veriyor.
a.b ve c sütunlarından herhangi biri dolu olursa o kayıta kadarmı yazdırsın.

 

[gecemavisi]

Kusura bakma Sn Omer Ceri.
Yurt dışında Türkçe klavye olmadığından internet kafede öyle tesadüf geldi. Formül sonuçları sıfır veriyor. Boş veride veriyor.

 

[omerceri]

Bir örnek göndersen daha çabuk haledilebilir.