Filtering a table query

[jcaptchaos2]

All, I have a table query named

Table_Query_from_SysproServer5

Where I'm pulling data out of Syspro, The header name in cell B2 is "JOB" I have a job number in Cell B1 that I would like to filter the table with. Right now I have filters on the table and can copy paste B1 into the filter on B2 and it does what I want. Normally I record those steps and save the macro add a button and then people use it.

Here is what I get but want what ever is in B2 as the criteria not 20222026 all the time
Sub Macro12
'
' Macro12 Macro
'

'

    Range("B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveSheet.ListObjects("Table_Query_from_SysproServer5").Range.AutoFilter _
        Field:=1, Criteria1:="20222026"
End Sub

 

[gheyman]

Sub FilterTo()


Application.ScreenUpdating = False

If Sheets("YOUR SHEET NAME HERE").Range("B1").Value <> "" Then

'
    ActiveSheet.ListObjects("Table_Query_from_SysproServer5").Range.AutoFilter Field:=2, Criteria1:="*" & Sheets("YOUR SHEET NAME HERE").Range("B1").Value & "*", Operator:=xlAnd
    
    Else
    
    End If
    

Application.ScreenUpdating = True

End Sub

Try this. I tried to tweak something I use. You may have to play around with it. I changed these so that it would work for you. if it doesnt work then thats were you may have to test different things
Field:=2


The value I was searching for (filtering to) was in the first field

I have this code tied to a button on the sheet.

 

[jcaptchaos2]

Fantastic, Thank you so much works like a charm.

 

[gheyman]

glad I could help