Ensuring Autofilter arrows are visible at end of macro
 

Hi,

I've been struggling with this one for a while -- I have a spreadsheet where
the user may or not have the Autofilter arrows being displayed prior to
running a macro. I always want to have the Autofilter arrows displayed for
all columns with values in Row 1 when the macro completes, regardless of if
the Autofilter arrows were on display prior to the person running the macro.
Below is the code I have tried, but I am getting an error (See error message
below). Any help is appreciated!

Error:
Run-time error '1004: AutoFiler method of Range class failed

Code:
With Sheets("Patent data with family data")

If .FilterMode Then
.ShowAllData
Else
.Range("A1:V1").AutoFilter VisibleDropDown:=True
End If

End With


--
Robert

Ensuring Autofilter arrows are visible at end of macro
 

Sometimes your code needs to see all the data.

So I turn off the autofilter, do the work, and reapply data|Filter|autofilter

With Sheets("Patent data with family data")

.autofiltermode = false

'do the work

'apply the autofilter to all the columns in the used range
.usedrange.columns.autofilter

End With

robs3131 wrote:

Hi,

I've been struggling with this one for a while -- I have a spreadsheet where
the user may or not have the Autofilter arrows being displayed prior to
running a macro. I always want to have the Autofilter arrows displayed for
all columns with values in Row 1 when the macro completes, regardless of if
the Autofilter arrows were on display prior to the person running the macro.
Below is the code I have tried, but I am getting an error (See error message
below). Any help is appreciated!

Error:
Run-time error '1004: AutoFiler method of Range class failed

Code:
With Sheets("Patent data with family data")

If .FilterMode Then
.ShowAllData
Else
.Range("A1:V1").AutoFilter VisibleDropDown:=True
End If

End With

--
Robert

--

Dave Peterson

Ensuring Autofilter arrows are visible at end of macro
 

Try:
..Range("A1:V1").AutoFilter Field:=1, VisibleDropDown:=True
instead of:
..Range("A1:V1").AutoFilter VisibleDropDown:=True

--
p45cal


"robs3131" wrote:

Hi,

I've been struggling with this one for a while -- I have a spreadsheet where
the user may or not have the Autofilter arrows being displayed prior to
running a macro. I always want to have the Autofilter arrows displayed for
all columns with values in Row 1 when the macro completes, regardless of if
the Autofilter arrows were on display prior to the person running the macro.
Below is the code I have tried, but I am getting an error (See error message
below). Any help is appreciated!

Error:
Run-time error '1004: AutoFiler method of Range class failed

Code:
With Sheets("Patent data with family data")

If .FilterMode Then
.ShowAllData
Else
.Range("A1:V1").AutoFilter VisibleDropDown:=True
End If

End With


--
Robert