How to filter 'Date' with VBA

[ThrottleWorks]

Hi,

I am trying to filter a Date value from a column with VBA.
I need to filter with criteria as 'Equal to or Before' date.

I tried below mentioned line but it is not working. Please note, TheDate is defined as Date in the code and it has a valid value.

Can anyone help me in this please.

Rng.AutoFilter Field:=DateCol, Criteria1:="<=" & TheDate, Operator:=xlAnd

 

[Asheesh]

Hi,

Use Dateserial function..

i.e. Dateserial(year,month,day)

This should fix the issue

 

[ThrottleWorks]

Hi @Asheesh , thanks a lot for the help. Will revert with details.

Have a nice day ahead.

 

[ThrottleWorks]

Hi @Asheesh , I am using below mentioned code and it seems to be working fine. Thanks.

Dim TheDateNumber As Long
TheDateNumber = ThisWorkbook.Worksheets("Macro").Range("a1").Value
Rng.AutoFilter Field:=DateCol, Criteria1:="<=" & TheDateNumber, Operator:=xlAnd