Problem deleting rows in VB

[Pauljj]

Morning, I have a code which should be deleting a selection of cells if the word does not start with LMK or DUB or ORK but it seems to delete it even if it does, can anyone spot the error of my ways please ?

For i = LastRow To IRStartCell Step -1

K = Cells(i, 18)

If K <> "DUB*" Or K <> "LMK*" Or K <> "ORK*" Then





Range(Cells(i, 11), Cells(i, 18)).Delete


End If

Next i

 

[mole999]

the formula should be like this > =IF(OR(K1<>"DUB*",K1<>"LMK*",K1<>"ORK*"),1,0) I
think
ActiveCell.FormulaR1C1 = _
"=IF(OR(R[-10]C[5]<>""DUB*"",R[-10]C[5]<>""LMK*"",R[-10]C[5]<>""ORK*""),1,0)"

 

[KOKOSEK]

Hi
Try like this:

For i = lastRow To IRStartCell Step -1
    K = Cells(i, 18).Value
    If Not K Like "DUB*" And Not K Like "LMK*" And Not K Like "ORK*" Then
        Rows(i).EntireRow.Delete
    End If
Next i