VBA Autofilter not equal to

excel vba filter basic
chee seng ng picture chee seng ng · Nov 22, 2018 · Viewed 25.4k times · Source 
Sub Macro1()
‘Remove all except validated
ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

Activesheet.Range("$A$2:$O$99999").SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete

ActiveSheet.ShowAllData
 End sub

How to replace "not equal than" in VBA? <> does not work.

Answer

chillin picture chillin · Nov 22, 2018

If you want your filter criteria to exclude "Validated", then try changing this line:

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

to

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:="<>Validated"

Note that the = in Criteria:= doesn't have anything to do with your filter criteria. (It relates to VBA and how you provide an argument to a named parameter.)

Related questions

Filter Excel pivot table using VBA

I have tried copying and pasting solutions from the internet forever now to try to filter a pivot table in Excel using VBA. The code below doesn't work. Sub FilterPivotTable() Application.ScreenUpdating = False ActiveSheet.PivotTables("PivotTable2").ManualUpdate = True ActiveSheet.PivotTables("…

Read More
How to filter listbox values based on a Textbox value

I have a textbox and a listbox on userform. I want to filter the values in listbox based on the value I enter in Textbox. Sheet named TMP has the values and I filter it based on textbox change event …

Read More
Excel VBA - ShowAllData method of Worksheet Class failed

I have automated a proper record input into the table that I use as a database, and when the table is filtered the input don't work. So I have code this to unfilter DataBase before every record input. Public Sub …

Read More