Need to bring Cell value into autofilter VBA

[LeonardH]

Hello Everyone,

I have the following code currently:

ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=33, Criteria1:= _
        "<7/1/2020"
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=35, Criteria1:= _
        "<1/01/1900"
      
    Range("D6:E3743").SpecialCells(12).Select
        Selection.Copy
    Sheets("Explanations").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

While the "<1/01/1900" makes sense since that is just calling out 0's, I need to make the "<7/1/2020" based off the date value in cell A5 of sheet "Explanations" and still keep the criteria <. Does anyone have any ideas?

Thanks!

 

[pbornemeier]

You might want to add some error checking to ensure A5 only contains a valid date field.

ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=33, _
    Criteria1:="<" & Worksheets("Explanations").Range("A5").Value, Operator:=xlAnd