boşlukları kaybetmek

[zenden26]

bir sütunda rakamlar var ama bazı hücreler boş ben bu sütunu yazdırırken boş hücrelerin yazılmasını istemiyorum. bu sütun içindeki aralardaki boş hücreleri nasıl gizleyebilirim.
örnek dosya ektedir.

 

[Metin Karaağaç]

ilk üç satırı seçin ve
Veri/Filtre uygula deyin.
3.sütunda oluşan oku tıklayıp "boş almayanlar"ı seçin.

 

[Seyit Tiken]

Kodu deneyerek uygulayınız.

Sub Düğme1_Tıklat()
Selection.SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
ActiveSheet.PrintOut
Selection.SpecialCells(xlCellTypeBlanks).Rows.Hidden = 0
End Sub

 

[zipir123]

süz ile halledebilirsin