BoŞ Olan Satiri Sİlmek

[eremcem]

Elimdeki datada tamamı boş olan satırları silmek istiyorum.Nasıl yapabilirim

 

[melphisto]

Sadece A sütununda hiç bir şey yoksa tüm satırı silen bir kod, belki işinize yarayabilir. veya (x,2) (x,3) gibi daha fazlasını and'lerle bağlayabilirsiniz.

Sub sil()
For x = Range("a65536").End(xlUp).Row To 1 Step -1
If Cells(x, 1) = "" Then Rows(x).Delete
Next
End Sub

 

[eremcem]

istediğim a1 den a15 e kadar bütün hücreler boş ise bu satırı silsinve tüm satırlar için bu kontrolü yapsın.


yardımlarınız için şimdiden teşekkür ederim