Excel Form Checkbox Manipulation

[Gliffix101]

Hello World!

I love this sight and have found that almost anything is possible in Excel. Some of it can be challenging to find, hence this thread.

I have a series of 23 checkboxes in a form. Each checkbox represents the status of a particular order (there are 23 different statuses). These statuses can be grouped together (pre-order, post-order, post-shipped). What I would like to do is to create a button labeled pre-order, post-order, and post-shipped. When a button is clicked, it will check the appropriate statuses for the user. This way if a user is looking for a particular status, he/she can click the one status, but if they are looking for all pre-order statuses, he/she can click one button to check off the 9 applicable statuses.

The checkboxes were created by going to the Developer tab, clicking "Insert", and selecting Checkbox under Form Controls (not ActiveX controls).

Please let me know if any other details are required.

Is this even possible?

Bill

 

[BKrukowski]

You can access a non-ActiveX with

ActiveSheet.Shapes("NAME OF OBJECT").Select ' You can change the name of the check boxes by right clicking and then changing the text in the top right box (they default in as Check Box 1.... Check Box n)
Selection.Value = True or False

I do not think you can select multiple Shapes at the same time so you will have to select and edit them one at a time in the command_Butt******* event

 

[rcg917]

Bill,
I think I know what you are asking. I something similar to "clear" those checkboxes. The macro below clears all the software checkboxes when clicked. I have named the checkboxes but you could just as easy use the cell reference. Either set them to 'False' to clear or 'True' to check them.

Sub RESET_SOFTWARE()
ActiveSheet.Unprotect
Application.ScreenUpdating = False

Range("SW_LICENSE_G6_ACCESS_MG").Value = False
Range("SW_LICENSE_G6_REVERSE_MG").Value = False
Range("SW_LICENSE_G6_TRUNKING_MG").Value = False
Range("SW_LICENSE_G6_UNIVERSAL_MG").Value = False
Range("SW_LICENSE_G6_ESA_MG").Value = False
Range("SW_LICENSE_G6_LINEBAY_MG").Value = False

Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub