Autofilter date by chosen year

[Kemidan2014]

Playing around with Macro recorder I got this code string because i need to use data by year and as time passes the year we want to look at will change

    Rows("1:1").Select
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$Z$1046").AutoFilter Field:=15, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "4/19/2022")

I know i need to clean this up but for now what could i do so this code to where i can for example highlight a cell for the user to type in the year and then the macro runs so that the sheet i am referencing will filter by that year?

i feel like theres a cell reference i need but not sure how to key it or where to put it with in the code

 

[Fluff]

How about

ActiveSheet.Range("$A$1:$Z$1046").AutoFilter Field:=15, Operator:= _
        xlFilterValues, Criteria2:=Array(0, datevalue("1/1/"&Range("AA1").Value))

Change the AA1 to reference the cell with the year.

 

[Kemidan2014]

I will give your code a try

I tried to google the syntax for this type of filtering but i could not get a clear answer so is the ":=Array(0, "4/19/2022") is the date in quotes basically defining the date format?

 

[Fluff]

The 0 at the start of the array denotes to use the year only.