Delete Rows not <> to

[VbaHell]

Hello all

I hope you can help me on this please

I want to change this code so that it delete all row NOT equal to "INS" instead of deleting "INS"

Any ideas please

arrWords = Array("INS")
     xlCalc = Application.Calculation
     Set rng = Range("c1:c2000")
     For rw = rng.Rows(rng.Rows.Count).Row To rng.Rows(1).Row Step -1
             For j = 0 To UBound(arrWords)
                     If InStr(1, rng(rw, 1), arrWords(j), vbTextCompare) Then
                             bDel = True
                             rng.Parent.Rows(rw).EntireRow.Clear
                             Exit For
                     End If
             Next
     Next

 

[My Aswer Is This]

Try this:

Sub Filter_Me_Please()
'Modified  8/16/2018  4:52:39 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Dim c As Long
Dim s As Variant
c = "3" ' Column Number Modify this to your need
s = "INS" 'Saerch Value Modify to your need
Lastrow = Cells(Rows.Count, c).End(xlUp).Row
With ActiveSheet.Cells(1, c).Resize(Lastrow)
    .AutoFilter 1, "<>" & s
    counter = .Columns(c).SpecialCells(xlCellTypeVisible).Count
    If counter > 1 Then
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Else
        MsgBox "No values found"
    End If
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub

 

[Michael M]

Maybe this

For j = 0 To UBound(arrWords)
                     If InStr(1, Rng(rw, 1), arrWords(j), vbTextCompare)[color=red] = 0[/color] Then
                             bDel = True
                             Rng.Parent.Rows(rw).delete
                             Exit For
                     End If
             Next