ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   REMOVING COLUMN FILTERS VIA VB CODE (https://www.excelbanter.com/excel-programming/444975-removing-column-filters-via-vbulletin-code.html)

clawdogs

REMOVING COLUMN FILTERS VIA VB CODE
 
Anyone know how to remove column filters via VB code? I'm trying to
code for an automated macro.. Thanks in advance..

Clif McIrvin[_3_]

REMOVING COLUMN FILTERS VIA VB CODE
 
"clawdogs" wrote in message
...
Anyone know how to remove column filters via VB code? I'm trying to
code for an automated macro.. Thanks in advance..



Have you tried using the macro recorder while manually making the
changes you are interested in and then examining the code?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)



clawdogs

REMOVING COLUMN FILTERS VIA VB CODE
 
On Sep 23, 11:24*am, "Clif McIrvin" wrote:
"clawdogs" wrote in message

...

Anyone know how to remove column filters via VB code? *I'm trying to
code for an automated macro.. *Thanks in advance..


Have you tried using the macro recorder while manually making the
changes you are interested in and then examining the code?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)


yes, that won't work if filters are already off. it will then include
filters

GS[_2_]

REMOVING COLUMN FILTERS VIA VB CODE
 
clawdogs pretended :
Anyone know how to remove column filters via VB code? I'm trying to
code for an automated macro.. Thanks in advance..


Google FilterMode property in online help (F1)!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc



MerseyBeat

REMOVING COLUMN FILTERS VIA VB CODE
 
"clawdogs" wrote in message
...
On Sep 23, 11:24 am, "Clif McIrvin" wrote:
"clawdogs" wrote in message

...

Anyone know how to remove column filters via VB code? I'm trying to
code for an automated macro.. Thanks in advance..


Have you tried using the macro recorder while manually making the
changes you are interested in and then examining the code?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)


yes, that won't work if filters are already off. it will then include
filters

The obvious recommendation would then be.... do it a second time after it
includes filters and you will have the code to remove them ???


GS[_2_]

REMOVING COLUMN FILTERS VIA VB CODE
 
MerseyBeat explained on 9/23/2011 :
"clawdogs" wrote in message
...
On Sep 23, 11:24 am, "Clif McIrvin" wrote:
"clawdogs" wrote in message

...

Anyone know how to remove column filters via VB code? I'm trying to
code for an automated macro.. Thanks in advance..


Have you tried using the macro recorder while manually making the
changes you are interested in and then examining the code?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)


yes, that won't work if filters are already off. it will then include
filters

The obvious recommendation would then be.... do it a second time after it
includes filters and you will have the code to remove them ???


With ActiveSheet
If .FilterMode Then .AutoFilter '//turn it off
Wnd With 'ActiveSheet

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc



GS[_2_]

REMOVING COLUMN FILTERS VIA VB CODE
 
GS made a typo...:
With ActiveSheet
If .FilterMode Then .AutoFilter '//turn it off

End With 'ActiveSheet

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc



GS[_2_]

REMOVING COLUMN FILTERS VIA VB CODE
 
There's a bit more to it that I didn't consider... (my bad!)

AutoFilter
Must be used with a range of contiguous cells
This toggles the filter dropdowns

FilterMode
True if rows are filtered;
False if rows are not filtered (even when the dropdowns exist)

AutoFilterMode
True if dropdowns exist;
False if no dropdowns exist

So.., my reply should have been as follows...

With ActiveSheet
If .AutoFilterMode Then .UsedRange.AutoFilter '//turn it off
End With 'ActiveSheet

If rows are filtered:
ActiveSheet.FilterMode is True
ActiveSheet.AutoFilterMode is True

If rows are not filtered:
Dropdowns exist:
ActiveSheet.FilterMode is False
ActiveSheet.AutoFilterMode is True

Dropdowns do not exist:
ActiveSheet.FilterMode is False
ActiveSheet.AutoFilterMode is False

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc



Dave Peterson[_2_]

REMOVING COLUMN FILTERS VIA VB CODE
 
Saved from a previous post:

If turn the autofilter off means remove all the arrows and show all the data:

dim wks as worksheet
set wks = worksheets("Somesheetname")
wks.autofiltermode = false


If turn off just means that you show all the data and keep the arrows:

dim wks as worksheet
set wks = worksheets("Somesheetname")
with wks
'show all the data
If .FilterMode Then
.ShowAllData
End If
end with

On 09/23/2011 10:01, clawdogs wrote:
Anyone know how to remove column filters via VB code? I'm trying to
code for an automated macro.. Thanks in advance..


--
Dave Peterson

clawdogs

REMOVING COLUMN FILTERS VIA VB CODE
 
On Sep 24, 7:42*am, Dave Peterson wrote:
Saved from a previous post:

If turn the autofilter off means remove all the arrows and show all the data:

dim wks as worksheet
set wks = worksheets("Somesheetname")
wks.autofiltermode = false

If turn off just means that you show all the data and keep the arrows:

dim wks as worksheet
set wks = worksheets("Somesheetname")
with wks
* * 'show all the data
* * If .FilterMode Then
* * * *.ShowAllData
* * End If
end with

On 09/23/2011 10:01, clawdogs wrote:

Anyone know how to remove column filters via VB code? *I'm trying to
code for an automated macro.. *Thanks in advance..


--
Dave Peterson

Guys, thanks a bunch!


All times are GMT +1. The time now is 11:49 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com