I am using the follwoing code to filter data greater than certain date. But
unfortunately all data gets hide when I run the macro. However when I open
and close the autofilet after Macro has run, proper values are visible.
please help me out...

Date = Cells(erow - 49, 4)
Sheets("data").Select
Range("a6").Select
Selection.AutoFilter
Range("O6").Select
Selection.AutoFilter Field:=15, Criteria1:="=" & Date

Try

Selection.AutoFilter Field:=15, Criteria1:="=" & Date, Criteria2:= "<=" &
Date


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Nirmal" wrote in message
...
I am using the follwoing code to filter data greater than certain date.
But
unfortunately all data gets hide when I run the macro. However when I open
and close the autofilet after Macro has run, proper values are visible.
please help me out...

Date = Cells(erow - 49, 4)
Sheets("data").Select
Range("a6").Select
Selection.AutoFilter
Range("O6").Select
Selection.AutoFilter Field:=15, Criteria1:="=" & Date

Sometimes converting the date to a long will help:

Selection.AutoFilter Field:=15, Criteria1:="=" & clng(Date)

Sometimes formatting the date to match the existing format of what's in the
other cells in the field will help:

Selection.AutoFilter Field:=15, Criteria1:="=" & format(Date,"mm/dd/yyyy")

(change that format to match your data, though)



Nirmal wrote:

I am using the follwoing code to filter data greater than certain date. But
unfortunately all data gets hide when I run the macro. However when I open
and close the autofilet after Macro has run, proper values are visible.
please help me out...

Date = Cells(erow - 49, 4)
Sheets("data").Select
Range("a6").Select
Selection.AutoFilter
Range("O6").Select
Selection.AutoFilter Field:=15, Criteria1:="=" & Date

--

Dave Peterson

"Dave Peterson" wrote in message
...

Sometimes formatting the date to match the existing format of what's in
the
other cells in the field will help:

Selection.AutoFilter Field:=15, Criteria1:="=" &
format(Date,"mm/dd/yyyy")

Get the cell format in this imstance

With Selection
.AutoFilter Field:=15, Criteria1:="=" & Format(Date, .Cells(2,
15).NumberFormat)
End With