VBA AutoFilter help

[MartinL]

I have the following line of code that works

rng.AutoFilter Field:=.Range("F1").Column, Criteria1:=vArray, Operator:=xlFilterValues

and the inverse that does not work

rng.AutoFilter Field:=.Range("F1").Column, Criteria1:="<>" & vArray, Operator:=xlFilterValues

this was the only version that was accepted by the compiler
how should this line be written?

Martin

 

[GTO]

What is vArray? Presuming its as named, you would need to specify the element.

 

[MartinL]

Hi yes

vArray = Application.Transpose(.Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Formula)

its a list of codes that I want to keep

With Sheets("Data")
  .AutoFilterMode = False
  Set rng = .Range("A1:M" & .Cells(.Rows.Count, "A").End(xlUp).Row)
  rng.AutoFilter Field:=.Range("F1").Column, Criteria1:="<>" & vArray, Operator:=xlFilterValues
  rng.Offset(1).EntireRow.Delete
  .AutoFilterMode = False
End With