Sorry for that, ok, well Im using Excel 2013
I have 3 sheets
The 1st is "WIRES", the 2nd shee is "BOM" and the 3rd is "Sheet 1" (on sheet1 I have all the variables, I have around 8 variables with 2 letters, for examlpe WA and TD)
So I wanted that the list on "WIRES" and the on the sheet "BOM" to show me only those results that start with WA and also that start with TD
What I recorded is that I copied the variable WA and the pasted on the filter, and the the same with TD (selecting "add the current selection the filter")
The colum to filter on "WIRES" sheet is column D and on "BOM" is column C
Here is the code that I recorded
Hopefully this would be helpful
Thanks!
' Keyboard Shortcut: Ctrl+Shift+X
'
Windows("WIRES and BOM.xlsx").Activate
Sheets("Sheet1").Select
Range("G8").Select
Selection.Copy
Sheets("WIRES").Select
ActiveSheet.Range("$A$5:$Z$863").AutoFilter Field:=4, Criteria1:=Array( _
"WA10-GA", "WA10-GJ", "WA10-GK", "WA10WH1", "WA10WH5", "WA77-G", "WA92A16", "WA92B16", _
"WA92BA16", "WA92C16", "WA92D16", "WA95-G", "WA95-GA", "WA95-GB"), Operator:= _
xlFilterValues
Sheets("BOM").Select
ActiveSheet.Range("$A$3:$N$1818").AutoFilter Field:=3, Criteria1:="WA"
Sheets("Sheet1").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("WIRES").Select
ActiveSheet.Range("$A$5:$Z$863").AutoFilter Field:=4, Criteria1:=Array( _
"TA TD47#140", "TA TD47#160", "TD92#101", "TD92#105", "TD92#109", "TD92#110", _
"TD92#111", "TD92#116", "TD92#118", "TD92#122", "TD92#123", "TD92#130", "TD92#133", _
"TD92#134", "TD92#136", "TD92#137", "TD92#141", "TD92#143", "TD92#151", "TD92#152", _
"TD92#154", "TD92#155", "TD92#157", "TD92#162", "TD92#163", "TD92#164", "TD92#165", _
"TD92#169", "TD92#170", "TD92#171", "TD92#174", "TD92#176", "TD92#177", "TD92A170", _
"TD92-G", "WA10-GA", "WA10-GJ", "WA10-GK", "WA10WH1", "WA10WH5", "WA77-G", "WA92A16", _
"WA92B16", "WA92BA16", "WA92C16", "WA92D16", "WA95-G", "WA95-GA", "WA95-GB"), _
Operator:=xlFilterValues
Sheets("BOM").Select
ActiveSheet.Range("$A$3:$N$1818").AutoFilter Field:=3, Criteria1:="=TD", _
Operator:=xlOr, Criteria2:="=WA"
End Sub