Autofilter / Advanced Filter Copying over all data

[jaspalsd]

Hi,

This is a bit frustrating. I've applied code to filter data using the autoFilter function but when I apply a new line with AdvancedFilter it appears it clears the filtered range and copies over all data

With Sheets(1).ListObjects("Table13256").Range.AutoFilter Field:=22, Criteria1:="<>"
.Columns("E").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("XYZ").Range("A2"), Unique:=True
End With

Basically, in column/field 22 I've applied formula to apply "90" else blanks "<>" . This works but when I apply the AdvancedFilter Action then it undoes the filter.

Can someone please advise.

Please note in the copied destination worksheet I then apply a sumifs formula by the unique values in Column E, so I could then apply code to filter and delete rows when the sumifs formula returns zero values as a workaround.

Thanks!

 

[jaspalsd]

sorry,

I've amended it and it's bringing back everything that relates to "90" which I want except now it brings back two more results than I expected - these two results definitely don't have "90" in column V.

With Sheets(1).ListObjects("Table13256").Range.AutoFilter Field:=22, Criteria1:="=90"
End With




Sheets(1).Select


Range(Range("E1"), Range("E1").End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("XYZ").Range("A2"), Unique:=True