Assign Macro to Checkbox in order to set criteria on Autofilter

[Djro69]

Hi all - hope you're having a nice day.

Q) Can I create 3 lazy checkboxes 1, 2 & 3 to filter for XXX only, YYY only, ZZZ only respectively?

I added the checkboxes via Developer > Insert > Checkbox (form control) <<<< but perhaps there is a better option?

 

[sxhall]

Hi DJro,

You can use a slicer.

1. Select your data from A7 to D22
2. Press Ctrl & T
3. Tick the option 'Contains headers' - This will format your data as a table.
4. Click on 'Table design' in the ribbon - (green below)
5. Click on 'Insert slicer'
6. Select the option for 'Place'

It will now add in a control like the below that will do what you need.

 

[Djro69]

Thanks sxhall, it's a good suggestion for other circumstances but I need to keep it as is and not in a table or pivot or anything.

So really need some vba if someone has it?

 

[sxhall]

You will need to use option buttons instead then as only one can be selectd at any given time. Bound them in a 'Groupbox' as well if you need to.

Code will be as follows for the buttons...

Sub MacroXXX()

    ActiveSheet.Range("$A$8:$D$22").AutoFilter Field:=2, Criteria1:="xxx"
   
End Sub

Sub MacroYYY()

    ActiveSheet.Range("$A$8:$D$22").AutoFilter Field:=2, Criteria1:="yyy"
   
End Sub

Sub MacroZZZ()

    ActiveSheet.Range("$A$8:$D$22").AutoFilter Field:=2, Criteria1:="yyy"
   
End Sub

 

[Djro69]

Thank you - I did not know about option buttons! These are perfect for what I'm working on!