OptionButton Value to Active Cell

**dannac** · 12-04-2012, 05:53 PM

Trying to click on option button on user form and have value added to active cell.
My code not working.

 
Private Sub UserForm1_Click()
 
    If OptionButton1 Then
        ActiveCell.Value = 1
    If OptionButton2 Then 
        ActiveCell.Value = 2
        
    
End Sub

**HaHoBe** · 12-05-2012, 02:20 AM

Hi, dannac,

right now you need to click on the UserForm itself instead of the optionbuttons. And you shhould receive an error message as End Ifs are missing.

Please add the following code to your userform:

Private Sub OptionButton1_Click()
If OptionButton1 Then
  ActiveCell.Value = 1
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2 Then
  ActiveCell.Value = 2
End If
End Sub

HTH,
Holger