Code question for clearing a command checkbox.

[Newbeetle]

Hi I have a command checkbox, such when its checked, it clears and unables
two form option buttons as below,

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then

ActiveSheet.OptionButtons("Option Button 149").Enabled = False
ActiveSheet.OptionButtons("Option Button 149").Value = xlunchecked
ActiveSheet.OptionButtons("Option Button 150").Enabled = False
ActiveSheet.OptionButtons("Option Button 150").Value = xlunchecked

Else

ActiveSheet.OptionButtons("Option Button 149").Enabled = True
ActiveSheet.OptionButtons("Option Button 150").Enabled = True

End if
End Sub

I have on another sheet a button that when pressed clears the above option
buttons and checkbox.

Private Sub clearsheet2_Click()

Sheets("sheet2").Unprotect password:=("password")
Worksheets("sheet2").OptionButtons.Value = xlOff
Worksheets("sheet2").CheckBox1.Value = xloff
Sheets("sheet2").Protect password:=("password")

End Sub.


When this runs checkbox1 shades out but the tick is still there, I then
changed the line;

Worksheets("sheet2").CheckBox1.Value = xloff

to

Worksheets("sheet2").CheckBox1.Value = false

When I run now I get an error after the else in the code at the top.

How can I amend this to stop the error and to have the checkbox unchecked?

 

[Bob Phillips]

Couple of points.

Are the optionbuttons from the forms toolbar?

You can't set/unset two option buttons, setting one unsets the other.

This works

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then

ActiveSheet.OptionButtons("Option Button 149").Value = 1

Else

ActiveSheet.OptionButtons("Option Button 150").Value = 1

End If
End Sub


--
HTH

Bob Phillips

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

 

[Newbeetle]

Hi Bob,

Thats interesting I didn't know you could use 0 and 1's saves me typing True
and False all the time.

I will still have the same problem where if I set the line from,

Worksheets("sheet2").CheckBox1.Value = xloff

to

Worksheets("sheet2").CheckBox1.Value = False

or

Worksheets("sheet2").CheckBox1.Value = False

The control checkbox1 is unchecked but I get a run error on the else
statement, when using the macro to clear all the form option buttons.

Any thoughts?

 

[Newbeetle]

I'm please to say some of the stuff your guys have taught me is finally
sticking in the grey cells, and I've managed to answer my question,

I altered the code below,

ActiveSheet.OptionButtons("Option Button 149").Enabled = False
ActiveSheet.OptionButtons("Option Button 149").Value = xlunchecked


to read

Worksheets ("Sheetname").OptionButtons("Option Button 149").Enabled = False
Worksheets ("Sheetname").OptionButtons("Option Button 149").Value =
xlunchecked

The problem was created due to the command button being used to clear the
option buttons was on another page, well thats my theory lol.

 

[Bob Phillips]

Excel does not have a constant xlunchecked!

--
HTH

Bob Phillips

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