Code question for clearing a command checkbox.
 

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?

--
This post was created using recycled electrons!

Code question for clearing a command checkbox.
 

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" wrote in message
...
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?

--
This post was created using recycled electrons!

Code question for clearing a command checkbox.
 

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?
--
This post was created using recycled electrons!


"Bob Phillips" wrote:

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

Code question for clearing a command checkbox.
 

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.

--
This post was created using recycled electrons!

Code question for clearing a command checkbox.
 

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)

"Newbeetle" wrote in message
...
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.

--
This post was created using recycled electrons!