Switching autofilter off using code

Matt · May 10th, 2002, 09:32 AM

Using code how can i firstly check to see if the autofilter is on and then if the filter is on, switch off so all records are showing.

hope someone can help

thanks

Matt

Ricky Morris · May 10th, 2002, 10:19 AM

Try this:

Sub FilterOff()
On Error Resume Next
ActiveSheet.ShowAllData
If Err.Description = "ShowAllData method of Worksheet class failed" Then
Selection.AutoFilter
endif
End Sub

Matt · May 10th, 2002, 11:33 AM

Cheers Ricky

DZarlengo · May 10th, 2002, 11:39 AM

Here's another way...

If Sheets("Sheet1").FilterMode = True Then _
Sheets("Sheet1").ShowAllData

Matt · May 13th, 2002, 01:58 AM

Cheers

May 10th, 2002, 10:19 AM	#2
Ricky Morris Board Regular Join Date: Mar 2002 Posts: 363	Try this: Sub FilterOff() On Error Resume Next ActiveSheet.ShowAllData If Err.Description = "ShowAllData method of Worksheet class failed" Then Selection.AutoFilter endif End Sub __________________ It's never too late to learn something new. Ricky

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 10th, 2002, 09:32 AM	#1
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Using code how can i firstly check to see if the autofilter is on and then if the filter is on, switch off so all records are showing. hope someone can help thanks Matt

May 10th, 2002, 11:33 AM	#3
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Cheers Ricky

May 10th, 2002, 11:39 AM	#4
DZarlengo Board Regular Join Date: May 2002 Posts: 63	Here's another way... If Sheets("Sheet1").FilterMode = True Then _ Sheets("Sheet1").ShowAllData

May 13th, 2002, 01:58 AM	#5
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Cheers