Sadece bir sütunun içindeki boş satırları silmek

[breathe_]

arkadaşlar sadece K sütunundaki satırlardaki boş hücrelerin silinip bir yukarıya kaydırılması hakkında bir makro varmıdır? Sitedeki tüm boşluk silme makrolarını inceledim ...

 

[Necdet]

Merhaba,

Yok ama yazılabilinir

Sub Sil()
Columns("K:K").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[breathe_]

Merhaba,

Yok ama yazılabilinir

Sub Sil()
On Error Resume Next
Columns("K:K").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Necdet bey cevap için teşekkürler ncak hiçbir hücre bulunamadı hatası verdi

 

[Necdet]

Merhaba,

Demekki boş hücre yok, o hücrelerde formül mü var?

 

[breathe_]

evet Necdet Bey.Ancak değerlerini 0 yaptım boş değiller artık.

 

[Necdet]

Merhaba,

Hücre değeri hem boş hem Sıfır olan hücreliri siler.

Sub Sil()
Dim i As Long
i = [K65536].End(3).Row
For i = i To 1 Step -1
    If Cells(i, "K") = 0 Or Cells(i, "K") = "" Then Cells(i, "K").Delete Shift:=xlUp
Next i
End Sub

 

[ikosarer]

bütün boş satırların silinmesi

txt dosyasına aktarım yaptığımda satırların bazı yerlerinde boş satırlar oluyor.acaba txt dosyası içindeki boş satırları silip yukarıya doğru verilerin kadırılması yapılabilirmi mümkünmüdür bunun için dos komutları mı yoksa vb kodumu yazılmalıdır.

Şimdiden Teşekkürler.....