Check All Check Boxes
 

Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub

Check All Check Boxes
 

You can do this for all Forms checkboxes

ActiveSheet.CheckBoxes.Value = True


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Native" wrote in message ups.com...
Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub

Check All Check Boxes
 

Are you sure they're from the Forms toolbar?

Those checkboxes usually have names like "Check Box 1"

But if they are from the Forms toolbar:

activesheet.checkboxes.value = xlon 'xloff



Native wrote:

Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub

--

Dave Peterson

Check All Check Boxes
 

If they are from the Control Toolbox then use

For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then
obj.Object.Value = True
End If
Next


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message ...
You can do this for all Forms checkboxes

ActiveSheet.CheckBoxes.Value = True


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Native" wrote in message ups.com...
Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub

Check All Check Boxes
 

Dave: You da man

Have the names wrong...they are "Check Box 18" etc

how do I make them on or off given this? I tried to space them, but no
work.

I would like to specify which are on/off because a few are still place
holders.



Dave Peterson wrote:
Are you sure they're from the Forms toolbar?

Those checkboxes usually have names like "Check Box 1"

But if they are from the Forms toolbar:

activesheet.checkboxes.value = xlon 'xloff



Native wrote:

Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub

--

Dave Peterson

Check All Check Boxes
 

with activesheet
.checkboxes("check box 18").value = xlon
.checkboxes("Check box 32").value = xloff
'etc
end with

If you named the checkboxes nicely, you could use some kind of loop:

dim myCBX as checkbox

for each myCBX in activesheet.checkboxes
if lcase(mycbx.name) like "spec_*" then
'do nothing
else
mycbx.value = xloff 'xlon
end if
next mycbx

Give the special checkboxes a nice name--just select the checkbox and type the
new name in the name box (to the left of the formula bar) and don't forget to
hit enter.

Native wrote:

Dave: You da man

Have the names wrong...they are "Check Box 18" etc

how do I make them on or off given this? I tried to space them, but no
work.

I would like to specify which are on/off because a few are still place
holders.

Dave Peterson wrote:
Are you sure they're from the Forms toolbar?

Those checkboxes usually have names like "Check Box 1"

But if they are from the Forms toolbar:

activesheet.checkboxes.value = xlon 'xloff



Native wrote:

Sorry, about this, but my head is sore from pounding on the desk....

Have a handful of check marks that I put on via the Forms Check Box and
want to have a sub that will check/uncheck all of them. However, i
can't even get the basics on this. What am i missing? I keep getting
error messages no matter how I try to tweak...last error is "object
required"

Sub CheckAll_Houses()
With ActiveSheet
CheckBox18.Value = True
CheckBox19.Value = True
CheckBox20.Value = True
CheckBox21.Value = True
CheckBox22.Value = True
End With
End Sub

--

Dave Peterson

--

Dave Peterson