boş satırı silmek

[mrcylmz_61]

Hocalarım ben bir sayfada ki boş hücreyi buluyorum. mesela sayfa1.cells(i,2) diyelim bu hücreyi bir butona bağlayarak döngü içerisinde makro ile nasıl silebilirim. nasıl bir kod yazabiliriz yardımcı olabilir misiniz?

 

[mrcylmz_61]

Hocalarım eksik yazmışım hücreyi değil hücrenin bulunduğu satırı silmek istiyorum.

 

[Necdet]

Merhaba,

İmzamdaki notları okuyunuz. Onu makro kaydet ile alıp kodları düzenleyebilirsiniz.

 

[mrcylmz_61]

For k = 1 To a - 1
If Sayfa2.Cells(k, 2) = "" Then
Rows(k).Select
Selection.Delete Shift:=xlUp
End If
Next k
Hocam üstteki kodu derledim , bir boşluk olunca siliyor ama 3 boşluk olunca 2 si kalıyor. ne yapabilirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz? Bu benim imzamda anlattığım kodun makrosudur.

Sub Makro1()
    Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[mrcylmz_61]

Necdet Bey çok teşekkür ederim ben aynı sonucu alabilmek için for döngüleri ile kasan bir yazılım yapmıştım. şimdi mükemmel oldu. Tekrar çok teşekkürler.

 

[Necdet]

Necdet Bey çok teşekkür ederim ben aynı sonucu alabilmek için for döngüleri ile kasan bir yazılım yapmıştım. şimdi mükemmel oldu. Tekrar çok teşekkürler.

Güle güle kullanınız.

 

[hakantb]

Sub satirsil()


[b1:b33].SpecialCells(xlCellTypeBlanks).EntireRow.Delete


End Sub