Reset button code for Radio Buttons

[dworst]

I've created a form and I'm using Radio Buttons with an Option Box to
prevent the user from selecting multiple items. The problem is that
if by accident they choose one of the items within the option box and
don't really want that there is no way to clear the radio button. I'd
like to place a "reset" button in the form but don't know the code to
pub behind the button to clear all the radio buttons. Can someone
help me out please.....thanks in advance.

 

[WLMPilot]

You should be able to place the radio buttons within a "frame" (see control
box) and only be able to choose one radio button.

Les

 

[Jim Rech]

Maybe a "None" option button.

--
Jim
| I've created a form and I'm using Radio Buttons with an Option Box to
| prevent the user from selecting multiple items. The problem is that
| if by accident they choose one of the items within the option box and
| don't really want that there is no way to clear the radio button. I'd
| like to place a "reset" button in the form but don't know the code to
| pub behind the button to clear all the radio buttons. Can someone
| help me out please.....thanks in advance.

 

[Mike Rogers]

dworst

Place this in the worksheet module and attach it to your clear buttom or
keyboard short cut.

Sub testme()

Dim OptBTN As OptionButton
Dim OLEObj As OLEObject

For Each OptBTN In ActiveSheet.OptionButtons
OptBTN.Value = xlOff
Next OptBTN

For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is msforms.OptionButton Then
OLEObj.Object.Value = False
End If
Next OLEObj

End Sub


Mike Rogers

 

[Dave Peterson]

I'm not sure what you're doing, but it might make it easier for the user to add
another optionbutton within that frame that represents "none of these".

 

[Tiffany]

Does this code work for buttons within Microsoft Frames?

 

[igau211]

thanks alot..it worked for me

dworst

Place this in the worksheet module and attach it to your clear buttom or
keyboard short cut.

Sub testme()

Dim OptBTN As OptionButton
Dim OLEObj As OLEObject

For Each OptBTN In ActiveSheet.OptionButtons
OptBTN.Value = xlOff
Next OptBTN

For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is msforms.OptionButton Then
OLEObj.Object.Value = False
End If
Next OLEObj

End Sub


Mike Rogers