Code to unfilter one field only

Here is my code:

Sheets("CEU Database").Select

If Sheets("Code").Range("L2").Value = "All" Then
'??? I need to unfilter Field: 1 only, and leave all other filtered
fields intact
Else
Cells.Select
Selection.AutoFilter Field:=1,
Criteria1:=Sheets("Code").Range("L2").Value
End If

AFAIK you will have to unfilter all and re-apply a suitable filter.

--
Don Guillett
SalesAid Software
donaldb@281.com
"scrabtree23" <scrabtree23@discussions.microsoft.com> wrote in message
news:DE24BF4D-8752-4759-AF50-658F2D374642@microsoft.com...
> Here is my code:
>
> Sheets("CEU Database").Select
>
> If Sheets("Code").Range("L2").Value = "All" Then
> '??? I need to unfilter Field: 1 only, and leave all other filtered
> fields intact
> Else
> Cells.Select
> Selection.AutoFilter Field:=1,
> Criteria1:=Sheets("Code").Range("L2").Value
> End If
>
>

I put a little data on a worksheet.

I applied data|filter to that data. I filtered by both column 1 and column 2.
Then I turned on the macro recorder when I did "(All)" for the first field. I
got this back:

Selection.AutoFilter Field:=1



scrabtree23 wrote:
>
> Here is my code:
>
> Sheets("CEU Database").Select
>
> If Sheets("Code").Range("L2").Value = "All" Then
> '??? I need to unfilter Field: 1 only, and leave all other filtered
> fields intact
> Else
> Cells.Select
> Selection.AutoFilter Field:=1,
> Criteria1:=Sheets("Code").Range("L2").Value
> End If

--

Dave Peterson