Çoklu Satır Silme

[husnucimen]

Merhabalar;

Çoklu satır silmek için aşağıdaki gibi bir formül kullanıyorum. Ancak izlenimlerime göre döngü oluşmuyor ilk karşılık gelen değeri silip devam etmiyor. Nerede hata yapıyorum acaba?

Sub CevapHareketlerindenSil()
Dim x As Integer
Dim ss As Long
Dim silinecek As String
silinecek = txtTalepId.Value
ss = Sheets("CevapListesiHareketleri").Range("A1000000").End(xlUp).Row
On Error Resume Next
For x = 2 To ss
If Sheets("CevapListesiHareketleri").Range("A" & x).Value = "" Then Exit For
If Sheets("CevapListesiHareketleri").Range("A" & x).Value = silinecek Then
Sheets("CevapListesiHareketleri").Rows(x).Delete
End If
Next

End Sub

 

[YUSUF44]

If Sheets("CevapListesiHareketleri").Range("A" & x).Value = "" Then Exit For

Bu satır A sütununun x. hücresi boş ise döngüyü sonlandırmasını sağlıyor. Yani A sütunundaki ilk boş hücrede döngü sona eriyor. Eğer A sütununda arada boş hücreler varsa bu satır nedeniyle bahsettiğiniz sorunu yaşarsınız diye düşünüyorum.

Eğer boş satır gördüğünde döngünün ve makronun sonlanmasını istemiyorsanız bu satırı silmeniz gerekir.

 

[Orion1]

Böyle deneyiniz.

For x = ss to 2 step -1

 

[husnucimen]

Böyle deneyiniz.

For x = ss to 2 step -1

Çok teşekkür ederim üstad sorun çözüldü