Koşullu Satır Silme

[junes]

Resimde görüldüğü üzere bilgiler üzerindeki boşlukları silmek istiyorum, yani eğer A sutunda boş bir hücre varsa o satırın silinmesini sağlayacak bir makro ya da formul hakkında bir fikri olan varsa çok sevinirim.

İlginiz ve vaktiniz için teşekkür ederim.

 

[mesudiye_052]

Sub sil()
Dim sayac As Integer, say As Integer
say = [a65536].End(xlUp).Row()
For sayac = 1 To say
If Cells(sayac, 1) = "" Then
If sayac > say Then Exit For
Cells(sayac, 1).EntireRow.Delete
sayac = sayac - 1
say = say - 1
End If
Next sayac
End Sub

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

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

 

[junes]

Her iki çözüm için de çok teşekkür ederim.