excel - Autofilter Column data one by one using buttons -
i have filtered data in column see 1 value @ time macro. far have got code below filters out when manually select value column. possible values picked macro function , when run populates data 1 one.
sub macro1() columns("c:c").select activesheet.listobjects("table_query1_added_columns2").range.autofilter field _ :=3, criteria1:="101" activesheet.listobjects("table_query1_added_columns2").range.autofilter field _ :=3, criteria1:="102" activesheet.listobjects("table_query1_added_columns2").range.autofilter field _ :=3, criteria1:="103" end sub
try (off top of head)
sub macro1() static filter integer columns("c:c").select if filter = 0 activesheet.listobjects("table_query1_added_columns2").range.autofilter _ field:=3, criteria1:="102" filter = 1 elseif filter = 1 activesheet.listobjects("table_query1_added_columns2").range.autofilter _ field:=3, criteria1:="103" filter = 2 else activesheet.listobjects("table_query1_added_columns2").range.autofilter _ field:=3, criteria1:="101" filter = 0 end sub
by declaring variable static
value remains set while workbook open. when first click button, value of filter
initialized 0
, appropriate .autofilter
set, , value of filter
incremented.
the next time click button, value of filter
still 1
, next .autofilter
set & filter
increment again.
when click button again, next .autofilter
set, , filter
reset 0
, ready select first .autofilter
criteria.
Comments
Post a Comment