Autofilter - =string in selected cell

[al007]

Sub Autofilter()
Selection.AutoFilter Field:=5, Criteria1:= _
"=NPF", Operator:=xlAnd
End Sub

How can I amend above code to replace NPF with the contents of my
active cell
(E.g either by Application.InputBox type := ???
or replace NPF by activecell.content ???)

Thxs

[Gary Keramidas]

did you try activecell.value ?

--


Gary


"al007" <[email protected]> wrote in message
news:[email protected]...
> Sub Autofilter()
> Selection.AutoFilter Field:=5, Criteria1:= _
> "=NPF", Operator:=xlAnd
> End Sub
>
> How can I amend above code to replace NPF with the contents of my
> active cell
> (E.g either by Application.InputBox type := ???
> or replace NPF by activecell.content ???)
>
> Thxs
>

[al007]

Yes - I managed to make it work with active value but not if selected
filter contains date - Can anybody help pls.

Thxs

[Dave Peterson]

You could try
activecell.value2
as your criteria.



al007 wrote:
>
> Yes - I managed to make it work with active value but not if selected
> filter contains date - Can anybody help pls.
>
> Thxs

--

Dave Peterson