Hi,
I generated a macro via the macro recorder which turns out not to
work. Whenever I run it I don't get any results even though I should.
When I open the autofilter settings and just press ok without changing
anything however it works. Does anyone have any clue on that? (code
see below)

Sub BugTest()
Selection.AutoFilter Field:=4, Criteria1:="<=07.09.2007",
Operator:=xlAnd
End Sub


Cheers,
Lars

Dates and filters can be a pain.

I'd try this first:
Selection.AutoFilter Field:=4, Criteria1:="<="&dateserial(2007,9,7)

If that didn't work, I'd try this next:
Selection.AutoFilter Field:=4, Criteria1:="<="&clng(dateserial(2007,9,7))

If that didn't work, I'd try this next:
Selection.AutoFilter Field:=4, _
Criteria1:="<="&format(dateserial(2007,9,7),"dd.mm .yyyy")

match the number format for that field. But I'd guess that your original would
work if this one does.


wrote:

Hi,
I generated a macro via the macro recorder which turns out not to
work. Whenever I run it I don't get any results even though I should.
When I open the autofilter settings and just press ok without changing
anything however it works. Does anyone have any clue on that? (code
see below)

Sub BugTest()
Selection.AutoFilter Field:=4, Criteria1:="<=07.09.2007",
Operator:=xlAnd
End Sub

Cheers,
Lars

--

Dave Peterson

try

Sub BugTest()
Selection.AutoFilter Field:=4, _
Criteria1:="<=" clng(Dateserial(2007,9,7))
End Sub

Make sure you have all the data you want filter selected when you run it.

--
Regards,
Tom Ogilvy


" wrote:

Hi,
I generated a macro via the macro recorder which turns out not to
work. Whenever I run it I don't get any results even though I should.
When I open the autofilter settings and just press ok without changing
anything however it works. Does anyone have any clue on that? (code
see below)

Sub BugTest()
Selection.AutoFilter Field:=4, Criteria1:="<=07.09.2007",
Operator:=xlAnd
End Sub


Cheers,
Lars