çıktı alırken boş satırlar çıkmasın..ama nasıl

[zwieg]

arkadaşlar ekli dosyadaki gibi bir listem var tabi 200 satırlık bir liste...o listedeki kişilere aylık üzret ödeniyor fakat ay ay bazı kişiler para alabiliyor bazıları alamıyor...benim amacım ..listedeki adı soyadı sütünları dolu iken karşısındaki hüzreleri boş olan satırların çıktı alırken listede görünmemesi..bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ediyorum

 

[zwieg]

arkadaşlar ekli dosya burada yukarıda eklemeyi unutmuşum kusura bakmayın

 

[baydeniro]

Merhaba zwieg. Hiç Autofilter kullanmayı denedin mi ? Yani ücret almayacakları filtre ile geçici Hide yapıp, print aldıktan sonra tekrar Unhide yapabilirsin.

 

[rmznd]

Böyle bir makro yazarak önce yazdırılacakları listeler ve yazdırırsın arkasından listen yeniden eski hale gelir.

Sub yazdırılacaklar()
'
'
Range("A1:F7").Select
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=6
End Sub

&#304;lk sat&#305;ra se&#231;im yapaca&#287;&#305;n (yazd&#305;raca&#287;&#305;n) alan&#305; yaz&#305;yorsun. Burada A1 den F7 ye kadar se&#231;ilmi&#351;, e&#287;er senin listen f s&#252;tununa kadar ve 100 ki&#351;i ise
Range("A1:F100").Select olarak ilk sat&#305;r&#305; d&#252;zeltiyorsun.
&#220;&#231;&#252;nc&#252; sat&#305;rda otomatik filtreyi 6. s&#252;tunda yani F s&#252;tununda bo&#351; olmayanlar olarak se&#231;iyoruz ve listeliyoruz.
D&#246;rd&#252;nc&#252; sat&#305;rda s&#252;z&#252;lm&#252;&#351; bilgileri 1 kopya olarak yaz&#305;c&#305;dan &#231;&#305;kar&#305;yporuz ve son sat&#305;rda da se&#231;imi eski haline getiriyoruz.
Kolay gelsin umar&#305;m i&#351;ine yarar.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
[C2:C100].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
[A1:J41].PrintOut
[C2:C100].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 0
End Sub