all the check boxes should be checked if i check a particular checkbox in that row

[rg.ruchigoel]

Hi

I have created 9 checkboxes in a particular sheet in a single row,
each in a single cell.
first checkbox is named 'All' and other 8 are named 'A' to 'H'. I want
when I will check 'All' checkbox all the other 8 checkboxes should
also be checked and similarly when i uncheck 'All' others should also
be unchecked. But the other 8 checkboxes can be individually checked
or unchecked. Actually these checkboxes are created to display some
data. I have done coding in Macro to display all the data when 'All'
is checked and to display individual data when other 8 checkboxes 'A'
to 'H' are checked or unchecked but in the sheet I want on checking
'All' checkbox other 8 checkboxes should also be checked bydefault.
So suggest me how can I this.

 

[papou]

Hello
If you are using checkboxes from the Controls tool bar:
Private Sub All_Click()
For Each chkbx In ActiveSheet.OLEObjects
If chkbx.Name Like "CheckBox*" Then
ActiveSheet.OLEObjects(chkbx.Name).Object.Value = All.Value
End If
Next
End Sub

HTH
Cordially
Pascal

 

[papou]

Sorry, just noticed chekbox names from your orignal message.
Please amend:
For Each chkbx In ActiveSheet.OLEObjects
Select Case chkbx.Name
Case "A", "B", "C", "D", "E", "F", "G", "H"
ActiveSheet.OLEObjects(chkbx.Name).Object.Value = All.Value
End Select
Next

HTH
Cordially
Pascal

 

[Bob Phillips]

With ActiveSheet
.CheckBoxes("A").Value = .CheckBoxes("All").Value
.CheckBoxes("B").Value = .CheckBoxes("All").Value
'etc.
End With



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)