Checking if there is an autofilter
-
-
-
Re: Checking if there is an autofilter
I found the answer in a previous thread. Thx for the one year old answer Derk
http://www.ozgrid.com/forum/showthread.php?t=23116
Regards,
Werner
-
Re: Checking if there is an autofilter
Here is a function You can call to test true or false,
jiuk
[vba]
Private Function JR_AutoFilterTesta(wAs As Excel.Worksheet) As Boolean
' written by JAck in the UK for http://www.OzGrid.com
' our web site http://www.excel-it.com
' Excel Xp+ 13th Aug 2005
' http://www.ozgrid.com/forum/showthread.php?t=38103
Set wAs = ActiveSheet
JR_AutoFilterTesta = False
With wAs
If .AutoFilterMode Then
JR_AutoFilterTesta = True
Else
JR_AutoFilterTesta = False
Set wAs = Nothing
End If
End With
End Function
[/vba][vba]
Sub JR_MyTest()
MsgBox JR_AutoFilterTesta(ActiveSheet)
End Sub
[/vba][vba]
Sub JR_MyTestDebugPrint()
Debug.Print JR_AutoFilterTesta(ActiveSheet)
End Sub
[/vba] -
Re: Checking if there is an autofilter
Thx Jack! I appreciate a lot
Regards,
Werner
-
Re: Checking if there is an autofilter
Hey good news all worked all OK over in Canada, was a pleasure hope the codes are OK and You can edit them OK, post back if You need a hand in this feed. Many thanks for letting us all know this have worked out well
jiuk
-
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!