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

Popular posts from this blog

python - TypeError: start must be a integer -

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

django - Creating multiple model instances in DRF3 -