Macro to save data then clear/reset option buttons

[nk12707]

Hi,

I am trying to create a macro that will first save the data entered then reset the option buttons. I have tried several things, but no luck so far. Any help that you could give would be appreciated. Thanks!

Nate

 

[onlyadrafter]

Hello,

You need to supply further information, and post the code you have created.

 

[erik.van.geit]

Hi, Nate,
WELCOME to the BOARD!!!!!

You will need to provide a bit more information if the next won't help...
If your optionbuttons have a linked cell, an easy way to reset them is to clear their linked cells.

Else you can use code like this

Sub reset_optionbuttons()
'Erik Van Geit
'050517 0053
 
Dim sh As Shape
 
    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoOLEControlObject Then
        If TypeName(sh.OLEFormat.Object.Object) = "OptionButton" Then sh.OLEFormat.Object.Object.Value = False
      End If
      If sh.Type = msoFormControl Then
        If sh.FormControlType = xlOptionButton Then sh.OLEFormat.Object.Value = False
      End If
    Next sh
 
End Sub

This would reset all possible option buttons, created with FORMS toolbar and CONTROLS toolbar.

kind regards,
Erik<SCRIPT type=text/javascript> vbmenu_register("postmenu_1704899", true); </SCRIPT>