Haklısınız, düzeltmeniz için teşekkür ederim.
Benim datalarım; A1 den AZ1 e kadar olan bölgede ve en fazla 307. satıra kadar.
308. Satırda ve sonrasında silinmemesi gereken datalarım var.
[vb:1:c82f793421]Sub sil()
For a = 307 To 1 Step -1
say = WorksheetFunction.CountA(Rows(a))
If say = 0 Then Rows(a).Delete
Next
End Sub
[/vb:1:c82f793421]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.