VBA/Macro Filter Table by cell value on click of button

[shaw600]

Hi,

I'm quite new to excel and I'm trying to filter a table based on a cells value at the click of a button.

See below.

 

[My Aswer Is This]

Assuming your Table is named "Table1"
And you want to filter field 5 which should be column "E"
And you want to filter the Table by the value in Range ("P1")
And your Table Range is ("A:P"
Try this script:

Sub FilterMini()
Dim Lastrow As Long
    With Range("Table1")
        Dim ans As String
        ans = Range("P1").Value
        .AutoFilter Field:=5, Criteria1:=ans, Operator:=xlFilterValues
    End With
End Sub