CODEWITHSUNDEEP
vbaexcel
cterford
cterford

Reputation: 1

Form Option Button Reset Macro

I am looking for a simple macro I could activate with a form control button that would clear all of the form control option buttons on my sheet.

I have lists of options for industrial part specifications, of which only one may be selected per section. However, once one is selected, the form control option button stays filled in. I previously circumvented this by using checkboxes, where if you click the box again it will remove the check mark. However once I learned that I was to create the form in such a way that only one option could be selected per section, (for ease of use in case a less computer minded person were to use it) it became clear that option buttons were the right way to go.

So I need a simple macro that I can activate with a button that will clear these option buttons all to blank, as if none were selected. I have looked and tried some strings of code, but none have worked so far. Perhaps I am missing something obvious or looking for the wrong thing, but I dont think I am.

I have checked the following pages and tried their code:

http://www.mrexcel.com/forum/excel-questions/689865-how-clear-all-checkboxes-option-buttons-list-boxes-form-3.html

Re-setting all option buttons at once

http://www.excel-easy.com/vba/examples/option-buttons.html

I feel like this should be simple. A VBA macro code that will reset the FORM CONTROL Option Buttons to blank (which I believe is the false state?). No need to worry about having specific ranges to clear; one button to reset the sheet will do perfectly.

Thanks in advance for any help.

Upvotes: 0

Views: 2544

Answers (1)

SierraOscar
SierraOscar

Reputation: 17637

Cycle through the Shapes collection:

Sub Reset()
    For Each vCtrl In ActiveSheet.Shapes
        vCtrl.DrawingObject.Value = False
    Next
End Sub

Upvotes: 1

Related Questions