macro - custom filter - date less than today

[ks_cr]

I just need to plugin a simple logic to my macro and tired trying Need expert help.

I just need to filter on a column where date is less than today's date, thats it.

If I try to record this macro, it doesnt give me an option but to select today's date and the code comes like this:

ActiveSheet.Range("$A$1:$Y$1868").AutoFilter Field:=17, Criteria1:= _
"<3/18/2011", Operator:=xlAnd

Kindly guide me how to change this to achieve true today.

 

[VoG]

Try

ActiveSheet.Range("$A$1:$Y$1868").AutoFilter Field:=17, Criteria1:="<" & Date, Operator:=xlAnd

 

[ks_cr]

It works! Thanks a ton.

 

[dragon-goddess1990]

HI

Do you have the equivalent for English dates? i.e. 31/01/2011

Thanks

Amy

 

[akash121]

How to this formula when i am using number like (1 , 2 , 4, 5 , 12, 15) which are repetative and are of both 1 and 2 digits.

ActiveSheet.Range("$A$1:$Y$1868").AutoFilter Field:=17, Criteria1:="<" & Date, Operator:=xlAnd