Setting autofilter at runtime

[AD108]

Hello,

I am trying to set an autofilter to a custom filter when a user clicks
command button. The code I have linked to the button follows. The goal is
to get the autofilter to return rows where the date in the field is less
than or equal to today. I think I can see that the problem is that the code
is seeing the string ">=Now" as a literal string without evaluting the
expression within it.

Dim lDate As Date
Selection.AutoFilter Field:=12, Criteria1:="<= Now", Operator:=xlAnd
End Sub

Any help would be greatly appreciated.

[Ardus Petus]

Selection.AutoFilter Field:=12, Criteria1:="<=" & Now

HTH
--
AP

"AD108" <arielNOSPAM@downtoearth.org> a écrit dans le message de news:
O2c40pUhGHA.4404@TK2MSFTNGP05.phx.gbl...
> Hello,
>
> I am trying to set an autofilter to a custom filter when a user clicks
> command button. The code I have linked to the button follows. The goal
> is
> to get the autofilter to return rows where the date in the field is less
> than or equal to today. I think I can see that the problem is that the
> code
> is seeing the string ">=Now" as a literal string without evaluting the
> expression within it.
>
> Dim lDate As Date
> Selection.AutoFilter Field:=12, Criteria1:="<= Now", Operator:=xlAnd
> End Sub
>
> Any help would be greatly appreciated.
>
>

[AD108]

Thanks,
That made it work.

"Ardus Petus" <ardus.petus@laposte.net> wrote in message
news:e4N$WwUhGHA.836@TK2MSFTNGP02.phx.gbl...
> Selection.AutoFilter Field:=12, Criteria1:="<=" & Now
>
> HTH
> --
> AP
>
> "AD108" <arielNOSPAM@downtoearth.org> a écrit dans le message de news:
> O2c40pUhGHA.4404@TK2MSFTNGP05.phx.gbl...
> > Hello,
> >
> > I am trying to set an autofilter to a custom filter when a user clicks
> > command button. The code I have linked to the button follows. The goal
> > is
> > to get the autofilter to return rows where the date in the field is less
> > than or equal to today. I think I can see that the problem is that the
> > code
> > is seeing the string ">=Now" as a literal string without evaluting the
> > expression within it.
> >
> > Dim lDate As Date
> > Selection.AutoFilter Field:=12, Criteria1:="<= Now", Operator:=xlAnd
> > End Sub
> >
> > Any help would be greatly appreciated.
> >
> >
>
>