Excelde boş satır

[efsaneone]

Arkadaşlar elimde 1300-1400 satırlık bir excel sheet var ve bunun 900 civarı satırı boş .Doyayı internetten çekiyorum .Aradaki boş satırları kaldırmam lazım tektek silmeye kalkarsam çok zamanımı alır bu satırları otomatik kaldırmanın imkanı varmı .
yardımcı olabilerseniz sevinirim

 

[Mahmut Bayram]

syn efsaneone, forumu arat bu komut makrolar kısmında vardı. Daha dün akşam indirdim

 

[Levent Menteşoğlu]

Boş satırlarınız hangi sütundadır?

 

[efsaneone]

Sayın Leventm
satırlar arasındaki boşluklar düzensiz
bazen 3 bazen 2 bazen 1 satır
Ayrıca 14 sutun var sutunlarda sorun olmuyor ama

Soru ile bu kadar kısa zamanda ilgilenip cevap ayzdığınız için ayrıca teşekkür ederim

 

[Levent Menteşoğlu]

Boşlukların düzensiz olması önemli değil, benim kastım kodu yazarken hengi sütunu dikkate alacağız şeklinde idi. Aşağıdaki kod A sütununa göre yazılmıştır. Bu kodu deneyiniz.

[vb:1:a0cac60708]Sub bosluksil()
Application.ScreenUpdating = False
For a = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(a, 1) = 0 Then Rows(a).Delete
Next
End Sub
[/vb:1:a0cac60708]

 

[efsaneone]

Süper ellerinize sağlık :dua:
Bu kadar kısa sürede soruna çözüm bulduğunuz için tekrar teşekkür ederim
:mutlu: