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