Search and Delete Rows if 1 or more specific values in column cells

[MrSpud]

I would like row to be deleted if certain values are found in same row cell of column D

eg ROW 1 cell D 1 ,had 1 or more values of , ? " yes","no" then delete row
ROW 2 cell D 2 ,did not contain values of , " yes","no" then DONT delete row

 

[JLGWhiz]

This might work

Sub t()
Dim i As Long
    With ActiveSheet
        For i = .Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
            If InStr(1, .Cells(i, 4).Value, "yes", vbTextCompare) > 0 Or InStr(1, .Cells(i, 4).Value, "no", vbTextCompare) > 0 Then
                Rows(i).Delete
            End If
        Next
    End With
End Sub

The objective is a little confusing. I assume the question makr (?) was a typo.

 

[MrSpud]

This might work

Sub t()
Dim i As Long
    With ActiveSheet
        For i = .Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
            If InStr(1, .Cells(i, 4).Value, "yes", vbTextCompare) > 0 Or InStr(1, .Cells(i, 4).Value, "no", vbTextCompare) > 0 Then
                Rows(i).Delete
            End If
        Next
    End With
End Sub

The objective is a little confusing. I assume the question makr (?) was a typo.

Where does that code get placed?
soz
I prob need to hire someone

 

[MrSpud]

Where does that code get placed?
soz
I prob need to hire someone

 

[MrSpud]

Someone with VBA skills

Any thoughts on cheap site?

 

[JLGWhiz]

Where does that code get placed?
soz
I prob need to hire someone

The code should be copied and pasted into code module1. See my signarure line below.