Filter Data based on Cell Value (Cell Value is formula referencing value on another sheet)

[LONeill13]

Hello:

I'm trying to create a macro - which I can then assign to a button - so that all the end user needs to do is press the button in the file and the data will automatically filter based on value in cell A1.

Sheet 1 is a data entry sheet for end user. Cell A29 is a formula based on a which checkbox is selected. Sheet 2 has a list of products. In cell A1 of this sheet I have a formula referencing cell A29 of Sheet1. What I want to do is filter the data on Sheet2/column C, based on the results reflected in cell A1.

I've recorded the macro, but I'm thinking that I need to tweak the Criteria1 to look at cell A1 as Value. Can someone please help?!

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Quill_Micro codes").Select
    ActiveSheet.Range("$A$3:$D$213").AutoFilter Field:=3, Criteria1:=Val(Range("A1"))
End Sub

 

[farmerscott]

Sub Macro1()


Criteria = Sheets("Quill_Micro codes").Range("A1").value

Sheets("Quill_Micro codes").Range("$A$3:$D$213").AutoFilter Field:=3, Criteria1:= Criteria
End Sub

Does that help?

FarmerScott