Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
Hi
I know how to remove AutoFilter. Worksheets("Absence").AutoFilterMode = False But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! Thanks Brian |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
Option Explicit
Sub SetAutoFilter() Dim target As Range Set target = Range("A1:C1") FilterA target 'turn filter OFF target.AutoFilter 'TURN FILTER ON target.AutoFilter End Sub Sub FilterA(target As Range) ' turns filter ON with a filter target.AutoFilter Field:=1, Criteria1:="=*1", Operator:=xlAnd End Sub "Brian Bermingham" wrote in message ... Hi I know how to remove AutoFilter. Worksheets("Absence").AutoFilterMode = False But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! Thanks Brian |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
Thanks Patrick
I got that to work. It seems a bit complex for what apears to be a simple operation. Is there not a simple command to reset autofilter? Thanks Brian "Patrick Molloy" wrote: Option Explicit Sub SetAutoFilter() Dim target As Range Set target = Range("A1:C1") FilterA target 'turn filter OFF target.AutoFilter 'TURN FILTER ON target.AutoFilter End Sub Sub FilterA(target As Range) ' turns filter ON with a filter target.AutoFilter Field:=1, Criteria1:="=*1", Operator:=xlAnd End Sub "Brian Bermingham" wrote in message ... Hi I know how to remove AutoFilter. Worksheets("Absence").AutoFilterMode = False But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! Thanks Brian |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
it was a demo
you need two lines of code target.AutoFilter target.AutoFilter the first turns off/on and the second reverses it "Brian Bermingham" wrote in message ... Thanks Patrick I got that to work. It seems a bit complex for what apears to be a simple operation. Is there not a simple command to reset autofilter? Thanks Brian "Patrick Molloy" wrote: Option Explicit Sub SetAutoFilter() Dim target As Range Set target = Range("A1:C1") FilterA target 'turn filter OFF target.AutoFilter 'TURN FILTER ON target.AutoFilter End Sub Sub FilterA(target As Range) ' turns filter ON with a filter target.AutoFilter Field:=1, Criteria1:="=*1", Operator:=xlAnd End Sub "Brian Bermingham" wrote in message ... Hi I know how to remove AutoFilter. Worksheets("Absence").AutoFilterMode = False But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! Thanks Brian |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
Thanks again Patrick
I now have below which does exactly what I was looking for. Dim target As Range Set target = Range("A1:AN1") If ActiveSheet.AutoFilterMode Then 'turn filter OFF if already on target.AutoFilter 'then TURN FILTER ON to reset target.AutoFilter Else 'turn filter On if already off target.AutoFilter End If "Patrick Molloy" wrote: it was a demo you need two lines of code target.AutoFilter target.AutoFilter the first turns off/on and the second reverses it "Brian Bermingham" wrote in message ... Thanks Patrick I got that to work. It seems a bit complex for what apears to be a simple operation. Is there not a simple command to reset autofilter? Thanks Brian "Patrick Molloy" wrote: Option Explicit Sub SetAutoFilter() Dim target As Range Set target = Range("A1:C1") FilterA target 'turn filter OFF target.AutoFilter 'TURN FILTER ON target.AutoFilter End Sub Sub FilterA(target As Range) ' turns filter ON with a filter target.AutoFilter Field:=1, Criteria1:="=*1", Operator:=xlAnd End Sub "Brian Bermingham" wrote in message ... Hi I know how to remove AutoFilter. Worksheets("Absence").AutoFilterMode = False But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! Thanks Brian |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
we appreciate the feedback. many thanks
"Brian Bermingham" wrote in message ... Thanks again Patrick I now have below which does exactly what I was looking for. Dim target As Range Set target = Range("A1:AN1") If ActiveSheet.AutoFilterMode Then 'turn filter OFF if already on target.AutoFilter 'then TURN FILTER ON to reset target.AutoFilter Else 'turn filter On if already off target.AutoFilter End If "Patrick Molloy" wrote: it was a demo you need two lines of code target.AutoFilter target.AutoFilter the first turns off/on and the second reverses it "Brian Bermingham" wrote in message ... Thanks Patrick I got that to work. It seems a bit complex for what apears to be a simple operation. Is there not a simple command to reset autofilter? Thanks Brian "Patrick Molloy" wrote: Option Explicit Sub SetAutoFilter() Dim target As Range Set target = Range("A1:C1") FilterA target 'turn filter OFF target.AutoFilter 'TURN FILTER ON target.AutoFilter End Sub Sub FilterA(target As Range) ' turns filter ON with a filter target.AutoFilter Field:=1, Criteria1:="=*1", Operator:=xlAnd End Sub "Brian Bermingham" wrote in message ... Hi I know how to remove AutoFilter. Worksheets("Absence").AutoFilterMode = False But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! Thanks Brian |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
But how can I leave the autofilter in place just removing any applied
filter? Some thing like AutoFilter.reset ! One simple quick line :-) ActiveSheet.ShowAllData That's it :-) |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset AutoFilter in code
Thanks Charlotte
It's always good to know more than one way to do things. Brian "Charlotte E" wrote: But how can I leave the autofilter in place just removing any applied filter? Some thing like AutoFilter.reset ! One simple quick line :-) ActiveSheet.ShowAllData That's it :-) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Workbook Reset AutoFilter to ShowAll | Excel Programming | |||
Reset VB Code Not Working on Close | Excel Programming | |||
Master reset code bug - stumped again | Excel Programming | |||
Master reset code -stumped | Excel Programming | |||
Autofilter reset button | Excel Discussion (Misc queries) |