how do i tell if an autofilter is applied so i can reset it when the file is
saved?

--


Gary

If Worksheets("Sheet1").AutoFilterMode Then
isOn = "On"
Else
isOn = "Off"
End If
MsgBox "AutoFilterMode is " & isOn

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Gary Keramidas" <GKeramidasATmsn.com> wrote in message
news:euwd#$(E-Mail Removed)...
> how do i tell if an autofilter is applied so i can reset it when the file
is
> saved?
>
> --
>
>
> Gary
>
>
>

You may want to reset the autofilter when the workbook is opened--not saved. (I
save lots of times and would hate to have my filtering change each time I save.

One way is to ignore any error that may occur:

Option Explicit
Sub auto_open()
Dim wks As Worksheet
On Error Resume Next
For Each wks In ThisWorkbook.Worksheets
wks.ShowAllData
Next wks
On Error GoTo 0
End Sub

Another way is to check to see if things need to be reset first:

Option Explicit
Sub auto_open()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.AutoFilterMode Then
If wks.FilterMode Then
wks.ShowAllData
End If
End If
Next wks
End Sub

Gary Keramidas wrote:
>
> how do i tell if an autofilter is applied so i can reset it when the file is
> saved?
>
> --
>
> Gary

--

Dave Peterson

thanks for the idea, i'll keep it mind

--


Gary


"Dave Peterson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> You may want to reset the autofilter when the workbook is opened--not saved.
> (I
> save lots of times and would hate to have my filtering change each time I
> save.
>
> One way is to ignore any error that may occur:
>
> Option Explicit
> Sub auto_open()
> Dim wks As Worksheet
> On Error Resume Next
> For Each wks In ThisWorkbook.Worksheets
> wks.ShowAllData
> Next wks
> On Error GoTo 0
> End Sub
>
> Another way is to check to see if things need to be reset first:
>
> Option Explicit
> Sub auto_open()
> Dim wks As Worksheet
> For Each wks In ThisWorkbook.Worksheets
> If wks.AutoFilterMode Then
> If wks.FilterMode Then
> wks.ShowAllData
> End If
> End If
> Next wks
> End Sub
>
> Gary Keramidas wrote:
>>
>> how do i tell if an autofilter is applied so i can reset it when the file is
>> saved?
>>
>> --
>>
>> Gary
>
> --
>
> Dave Peterson

thanks, bob, i guess it was pretty simple

--


Gary


"Bob Phillips" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> If Worksheets("Sheet1").AutoFilterMode Then
> isOn = "On"
> Else
> isOn = "Off"
> End If
> MsgBox "AutoFilterMode is " & isOn
>
> --
>
> HTH
>
> Bob Phillips
>
> (replace xxxx in the email address with gmail if mailing direct)
>
> "Gary Keramidas" <GKeramidasATmsn.com> wrote in message
> news:euwd#$(E-Mail Removed)...
>> how do i tell if an autofilter is applied so i can reset it when the file
> is
>> saved?
>>
>> --
>>
>>
>> Gary
>>
>>
>>
>
>