Boş Satirları süzdürme

[ormancı421]

Arkadaşlar Ekte görüldüğü şekilde bir Ödemeler Bordrosu var. Buraya Bilgilerimi VBA da kodladığım bir proğram aracılığı ile giriyorum. Proğramda Bir buton ile bu Bordro daki boş satırları süzdürmek ve Bordroyu yazdırmak için Önizleme yaptırmak istiyorum. Excel Sayfasının adı "Bordro" . Yardımcı olacak arkadaşlara teşk.ederim.

 

[ÖmerFaruk]

Sub GizleVeÖnizle()
Set Alan = Worksheets("Bordro").Range("A6:Q30")
Alan.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Worksheets("Bordro").PageSetup.PrintArea = "$A1:$Q31"
Worksheets("Bordro").PrintPreview
'...
' Varsa diğer komutları araya girebilir
' Ya da bu makroyu diğer makronuzda çağırabilirsiniz.
Worksheets("Bordro").PageSetup.PrintArea = ""
Set Alan = Nothing
End Sub

 

[ormancı421]

Ömer Bey,
Kod için teşekkürler. Ancak kod çalıştığında Ön izleme User formun altında kalıyor ve Sanıyorum bir döngüye giriyor ve programı kapatamıyorum. CTRL Alt Delete tuşlarıyla Görevi sonlandırmak sorunda kalıyorum. Kodu bir kontrol edebilirmisiniz.

 

[ÖmerFaruk]

Userformunuzun Show Modal özelliğini properties kısmından yada kodllarınız içinde FALSE yapın.

 

[ormancı421]

Ömer Bey,
Yazdığınız kod daki Şu satırlar bordroyu tamamen süzüyor dolu hücreleride kapatıyor,

Set Alan = Worksheets("Bordro").Range("A6:Q30")
Alan.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

 

[ÖmerFaruk]

Pardon. Adresi değiştirin lütfen.
Set Alan = Worksheets("Bordro").Range("A6:A30")