Koşullu Satır Silme

[muhoa]

Arkadaşlar merhaba

makro ile h sütununda (h2 ile h10000 aralığında) "DEVAM" ibaresi bulununan bütün satırları silmek istiyorum. Bir kaç kez daha sorulmuş cevaplanmış bir konu ancak kodları kendime uyarlayamadım.

yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Kosullu_Satir_Sil()
    Dim X As Integer
    
    For X = 10000 To 2 Step -1
        If Cells(X, "H") = "DEVAM" Then
            Rows(X).Delete
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[muhoa]

Hocam çok teşekkür ederim, uyguladım.

 

[cancak]

Makroyu 20 satır ile çalıştırdım, AH kolonunda "0" olan satırları silebildim. Ancak dosyam 34000 satırlık tamamı için çalıştırınca 2-3 saat geçmesine rağmen tamamlanmadı
yardımcı olursanız sevinirim, teşekkürler