Bos Satirlari silmek

[Senegale]

Merhaba

Tablomda 25000 uzerinde satir var ancak bazi satirlarda hic veri yok

Bu bos satirlari komple silebilecegim kolay bir yol var mi acaba?

 

[Senegale]

Private Sub CommandButton1_Click()
[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Ihtiyaci olanlar icin formul bu imis arkadaslar