Hücre değerine göre satır silme

[mkuru28]

Arkadaşlar F5:F25000 aralığında bulunan satırlarda Mükerrer kelimesi yazıyorsa o satırın silinmesi için nasıl bir kod kullanabilirim. Sadece belirlenen aralıktaki mükerrer yazan satır silinecek diğer satırlar boş da olsa silinmeyecek.

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini aldıktan sonra deneyiniz...

Sub kod()
Dim a As Long
Dim sil As Range, hcr As Range
Set sil = Cells(Rows.Count, "F")
For Each hcr In Range("F5:F25000")
    If hcr.Value = "mükerrer" Then Set sil = Union(sil, hcr)
Next
sil.EntireRow.Delete
End Sub

 

[mkuru28]

Hocam teşekkür ederim. Emeğinize sağlık

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...