VBA to change filters based on cells

[moskendo]

In this code, all rows not meeting the criteria "<>RAY" get deleted, leaving just what I really want, which is all rows containing RAY.

ws1.Cells.AutoFilter
ws1.Range("B2:R2000").Value = ws2.Range("A7:Q2005").Value
ws1.Cells.AutoFilter Field:=2, Criteria1:= _
"<>RAY"
myLoads.Range("B2:R2000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
myLoads.ShowAllData

I need to be able to change this other names besides RAY, which would be indicated by a cell reference.

Not sure what Im looking for tho..

Im pretty new to this so keep it simple for me please!

TIA

[Takae]

The most simple code is
Criteria1:="<>" & Range("A1").Value

If you have two more criterias(e.g range("B1:B5")), it should be as below.

Please Login or Register  to view this content.

I think the red parts would be "ws1".

Hope this helps.

[moskendo]

Workes like a charm