autofilter not working correct for date

tjsingh · Oct 31st 2010

Hi

I have a data worksheet and am using autofilter vba code. I have the following criteria:

Code

Dim lDateTo As Long
Dim lDateFrom As Long
 
If IsDate(wsData.Range("A5")) Then
     
    dFromDate = DateSerial(Year(dFromDate), Month(dFromDate), Day(dFromDate))
    lDateFrom = dFromDate
    
    dToDate = DateSerial(Year(dToDate), Month(dToDate), Day(dToDate))
    lDateTo = dToDate
        
End If
 
wsData.Range("A1:N" & Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter field:=1, Criteria1:=">=" & lDateFrom, Operator:=xlAnd, Criteria2:="<=" & lDateTo
wsData.Range("A2:N" & Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter field:=15, Criteria1:="LIVE"

Display More

I have the above code but when i search for the date it always picks up the first date regardless but the rest of the filter is fine.

not sure why this is happening?

can someone please help

i have attached file. Data is the tab where the data is held. Masterproject has the filter button

**PCI** · Oct 31st 2010

Re: autofilter not working correct for date

If there is something attached it's obvious to catch it: Where is it

AAE · Oct 31st 2010

Re: autofilter not working correct for date

Hello tjsingh,

Welcome to Ozgrid.

All VBA code posted to the forum must be wrapped in code tags, which you omitted. I've added the tags for you this time only. Please be sure to use them in future posts.

How to use code tags: [noparse]

Code

your code here

[/noparse]

There is no attachment.

Rob Xaos · Nov 1st 2010

Re: autofilter not working correct for date

tjsingh,

As AAE mentioned you need to attach your sample Workbook. Please use Edit Post on your original post and then Go Advanced > Manage Attachments. It is not really possible to examine this without your data.

autofilter not working correct for date

Participate now!

Share