VBA to Filter Before a Date using Formula

[SanjayGMusafir]

Hi Experts

Got another problem to resolve

I want to filter my records for dates before 10 yrs from today. So I have written following code, which is not working. There must be some technical thing, I'm missing upon.

Further, my system use date as dd/mm/yyyy

Please help

Thanks

ActiveSheet.ListObjects("Clients").Range.AutoFilter Field:=3, Criteria1:= _
        "<=" & "[Today()-3650]"

 

[Grand]

Hi
I am not expert But see if this can help you out:

ActiveSheet.ListObjects("Clients").Range.AutoFilter Field:=3, Criteria1:="<=" & Format(DateAdd("y", -3650, Now()), "dd/mm/yyyy")

 

[Fluff]

Try

AutoFilter 3, "<=" & CLng(Date - 3650)

 

[SanjayGMusafir]

Hi @Fluff

It did the magic. Thanks

Try

AutoFilter 3, "<=" & CLng(Date - 3650)

 

[Fluff]

Glad to help & thanks for the feedback