Linking Multiple Check Boxes Together

[Swins]

Hi All

I have a Office 365 spreadsheet with 23 check boxes for categories for sweets (the check boxes either hide or show a row in another sheet).

I also want to add a couple of check Boxes that will select all the "chocolate" (checkbox 24) sweets and deselect the remainder or select all the "Boiled Sweets" (Checkbox 25) and then deselect the remainder.

Also i want to only be able to check either Chocolate or Boiled Sweets (checkbox 24 & 25).

Any Suggestions??? and I hope I have expalined myself well enough

Thanks

 

[onlyadrafter]

Re: HELP! with Linking Multiple Check Boxes Together

Hello,

Something on the lines of

    ActiveSheet.Shapes.Range(Array("Check Box 1", "Check Box 3", "Check Box 4")).Select
    With Selection
        .Value = 1
    End With
    ActiveSheet.Shapes.Range(Array("Check Box 5", "Check Box 7", "Check Box 9")).Select
    With Selection
        .Value = 0
    End With

You will need to change the name of the check boxes to suit, and add all of the others.

Not sure what you mean by 'Also i want to only be able to check either Chocolate or Boiled Sweets (checkbox 24 & 25).'

If you mean that you don;t want to select all the Chocolate ones then something like this perhaps?

    MY_ANS = MsgBox("Do you want to select all chocolate?", vbYesNo, "CHOICE")
    If MY_ANS = vbYes Then
        ActiveSheet.Shapes.Range(Array("Check Box 1", "Check Box 3", "Check Box 4")).Select
        With Selection
            .Value = 1
        End With
        ActiveSheet.Shapes.Range(Array("Check Box 5", "Check Box 7", "Check Box 9")).Select
        With Selection
            .Value = 0
        End With
    End If

 

[Swins]

Re: HELP! with Linking Multiple Check Boxes Together

Thanks that is exactly what I was after