Excel - Update ActiveX OptionButton automatically after value change in cell

[rzdz]

Hi all,

I have countless option buttons in a sheet that are always grouped in pairs of two. The option buttons simply pass a value multiplied by the factor from A1 to another cell. Everything works like this... However, when I change the factor in A1, the corresponding value in E231 is not changed automatically. For that, I would first have to click the other button and then the original one again.

The following code of two related option buttons:

Private Sub OptionButton83_Click()
Range("E231").Value = Range("F231").Value * Range("A1").Value
End Sub

Private Sub OptionButton84_Click()
Range("E231").Value = Range("G231").Value * Range("A1").Value
End Sub

Can someone please help me how to automate the Option Buttons in this respect, because there are too many option buttons to keep re-clicking them?

Any help would be greatly appreciated.

 

[rlv01]

If you still want to re-click them then

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Me.OptionButton83.Value = False
        Me.OptionButton84.Value = False
    End If
End Sub

If not then

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Me.OptionButton83.Value Then
           Range("E2").Value = Range("F2").Value * Range("A1").Value
        ElseIf Me.OptionButton84.Value Then
            Range("E2").Value = Range("G2").Value * Range("A1").Value
        End If
    End If
End Sub

or

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Me.OptionButton83.Value Then
            OptionButton83_Click
        ElseIf Me.OptionButton84.Value Then
            OptionButton84_Click
        End If
    End If
End Sub