Radial Button to load Macro when selected

[johnpants]

Hi, I have a Userform with 5 radial buttons on. When I select the top one and click the commandbutton I would like it to run Macro1 for example, then when radial button 2 is selected I would like it to run marco2 etc.

I am guessing this is pretty simple, am I correct?

Thanks.

 

[Joe Was]

Use the Click Event for that control. You just list the name of the macro you want to run in the Event Or add the code portion of the macro to the event.

 

[johnpants]

Ok, I see what you mean, below are the details:

\code
Sub Rep1()
Range("A3").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub
\endcode

that is the Macro that I would like to run, I have placed it into module3.

What I am having the problem with is what event control do I put into:

'OptionButton1_click'

and what into

'CommandButton1_Click'

so that it only runs the macro for the selected optionbutton...

Apologies if that makes no sense..

 

[Joe Was]

Private Sub OptionButton1_Click()
Rep1
End Sub

 

[johnpants]

Thanks, that works perfect, it runs and completes, one minor adjustment I would like if it isn't too complex though.

At the minute the macro runs as soon as I click the radial button, what would I need to ammend if I wanted it to only run once it is selected, and the user clicks the CommandButton1 at the bottom of the form?

Thanks for your time Joe, much appreciated.

 

[Joe Was]

Private Sub CommandButton1_Click()

If UserForm1.OptionButton1=True Then Rep1
If UserForm1.OptionButton2=True Then Rep2
If UserForm1.OptionButton3=True Then Rep3
If UserForm1.OptionButton4=True Then Rep4
End Sub

 

[johnpants]

Thank you very much, much appreciated.

 

[erik.van.geit]

Hi, guys,
as an alternative, easy to edit when buttons are added or deleted, you can use this

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 4
If Me.Controls("optionbutton" & i) Then Run ("Rep" & i)
Next i
End Sub

kind regardfs,
Erik