Satır silme

[Barons]

Merhaba
M sütununda değer yoksa o satırı komple silmek istiyorum.Bu satırlar 65000 adete kadar gidebilir.

Makro ile yapmam lazım.Yardımcı olursanız çok sevinirim.

teşekkürler

 

[Ömer]

Merhaba,

Sub Deneme()
Range("M2:M65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

.

 

[Barons]

çok teşekkürler

 

[Korhan Ayhan]

Selamlar,

Bu tarz kodları kullanırken eğer alanda sorgulanan tarzda hücre yoksa kod hata verecektir. Bunu engellemek için hata kontrolü eklemek daha sağlıklı olacaktır. Kodu aşağıdaki şekilde değiştirip deneyiniz.

Sub BOŞ_SATIRLARI_SİL()
    On Error GoTo Son
    Range("M2:M65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Son:
End Sub