optionbuttons should work dynamically

[Marcin4111]

Hi,
There is userform with two optionbuttons that depending on the selection are shown as FALSE and TRUE in cells A1, A2.
The issue is those optionbuttons selection should result in dynamic changes in A1 and A2, prior to userform closing.
How can I fix it?
https://drive.google.com/open?id=1FBg0h3D5ASe2jpwaktIk0vltUXL2qODq

Regards,
Marcin4111

 

[NoSparks]

In module 1

Sub Assess_primary_risk_button_Click()
    Assess_primary_risk.Show
End Sub

In the Userform module

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub Probability1_Click()
    Sheet1.Range("a1") = "True"
    Sheet1.Range("a2") = "False"
End Sub

Private Sub Probability2_Click()
    Sheet1.Range("a1") = "False"
    Sheet1.Range("a2") = "True"
End Sub

Private Sub UserForm_Initialize()
    Me.Probability1 = Sheet1.Range("a1")
    Me.Probability2 = Sheet1.Range("a2")
End Sub

 

[Fluff]

Another option

Option Explicit
Private Sub CommandButton1_Click()
   Unload Me
End Sub

Private Sub Probability1_Change()
   Sheet1.Range("A1").Value = Me.Probability1.Value
   Sheet1.Range("A2").Value = Not Me.Probability1.Value
End Sub

Private Sub UserForm_Initialize()
   Me.Probability1 = Sheet1.Range("A1")
   Me.Probability2 = Sheet1.Range("A2")
End Sub