Makro ile satır silme sorunu

[gnorar]

2000 satırlık bir exel tablom var. 2001. satırda B stununun toplamını alıyorum. Ancak çoğu zaman tablonun son kısmında yüzlerce satırlık boş satır oluyor. Ben bu boş satırları kodla do while kullanarak tek tek sildiryorum ancak bu silme işlemi zaman alıyor.

Tobloda bulunan son dolu satırı tespit ettirerek (örneğin 1000. satır olsun) bu satırın altından 2000. satıra kadar (yani 1001-2000 arası satırlar) tek seferde silmek istiyorum.

Bununla ilgili bir kod geliştirebilirseniz sevinirim.

 

[excel03]

merhaba;

Sub BosSatırSil()
x = Cells(65536, 1).End(3).Row
If x < 2000 Then
Rows(x + 1 & ":" & 2000).Delete Shift:=xlUp
End If
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SatirSil()
    On Error Resume Next
    Range("B1:B2001").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[gnorar]

Teşekkürler arkadaşlar her iki kodda mükemmel çalışıyor.

Bu aşamadan sonra işi daha kolaylaştırmak amacıyla bir sorum daha olacak.
Önceki örneğe dönecek olursak en son veri bulunan satırla 2000. satır arasını silmek yerine enson veri bulunan satırın alt satırı B stününa makro ile nasıl toplam aldırabilirm (örneğimize göre B1001 hücresine (B1:B1000) hücreleri toplamı yazdırılacak.