Sütunda içermeyen satırları silmek

[o2l3m]

H sütununda *İPTAL*", "*IPTAL* Yazanları aşağıdaki şekilde silebiliyorum.
Peki;
H sütununda *İPTAL*", "*IPTAL* yazmayan satırları silmek için kodu nasıl değiştirmem gerekiyor.



Sub ZZÇOKSİL_H()

'H SÜTUNUNDA İPTALLERİ SİLMEK İÇİN
Dim sutun As String, son As Long, deg, i As Long, durum As Boolean, j As Integer

'sutun = InputBox("İşlem yapmak istediğiniz sütun bilgisini giriniz.", , "H")
sutun = "H"
If sutun = "" Then Exit Sub
son = Cells(Rows.Count, sutun).End(xlUp).Row
deg = Array("*İPTAL*", "*IPTAL*")

Application.ScreenUpdating = False

For i = son To 1 Step -1
durum = False
For j = 0 To UBound(deg)
If Cells(i, sutun) Like deg(j) Then durum = True
If durum = True Then Exit For
Next j
If durum = True Then Rows(i).Delete Shift:=xlUp
Next i

Application.ScreenUpdating = True

'MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub

 

[Ziynettin]

Kod içinde kırmızı yazılı satırları yazarak deneyin.

For i = son To 1 Step -1
durum = [COLOR="red"]True[/COLOR]
For j = 0 To UBound(deg)
If Cells(i, sutun) Like deg(j) Then durum = [COLOR="Red"]False[/COLOR]
If durum = [COLOR="red"]False[/COLOR] Then Exit For
Next j
If durum = True Then Rows(i).Delete Shift:=xlUp
Next i

 

[o2l3m]

Teşekkürler.