Hücredeki değere göre satır silme

[airborne]

A B
1 123456789 İLETİLDİ
2 234567890 BAŞARISIZ
3 345678901 BAŞARISIZ
4 456789123 İLETİLDİ
5 567890123 BAŞARISIZ
6 678910123 İLETİLDİ

Bu şekilde 12.000 satırlık bir sayfam excelde var. Bu dosyada B kolonunda İLETİDİ ve BAŞARISIZ DİİYE bilgiler ver. BAŞARISIZ yazanların satırları ve silinen boş satırları silecek makroya ihtiyacım var.

Selametle.......................

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.ScreenUpdating = False
For h = Cells(12000, "b").End(xlUp).Row To 1 Step -1
If Cells(h, "b") = "BAŞARISIZ" Then Rows(h).Delete
Next
Application.ScreenUpdating = 1
End Sub

 

[airborne]

s.a.

Allah Razı olsun üstad