Multipage userform click option on one page but if I go to another page it wont work

[Caveman1964]

I must be driving some of you crazy.
I put in multipage userform with radio buttons to put value in a cell.
I click a tab and a radio button and it puts the value in....but if I decide i needed the other tab page option, i click the tab and it doesnt replace value
But it will replace value if on same tab of the multi page userform.

here is my mess. Please help.


Private Sub UGA_Click()
Sheets("Do Not Alter").Unprotect "1"
Sheets("Data Collection").Unprotect "1"
Sheets("Complaint Entry").Unprotect "1"




Sheets("Complaint Entry").Select
Range("E11").Select


If GA23.Value = True Then
ActiveCell.Value = GA23.Caption
ElseIf GA10.Value = True Then
ActiveCell.Value = GA10.Caption
ElseIf GA06.Value = True Then
ActiveCell.Value = GA06.Caption
ElseIf GA04.Value = True Then
ActiveCell.Value = GA04.Caption
'another tab below
ElseIf TH30.Value = True Then
ActiveCell.Value = TH30.Caption
ElseIf TH10.Value = True Then
ActiveCell.Value = TH10.Caption
ElseIf TH13.Value = True Then
ActiveCell.Value = TH13.Caption
ElseIf TH02.Value = True Then
ActiveCell.Value = TH02.Caption
ElseIf TH06.Value = True Then
ActiveCell.Value = TH06.Caption


End If




End Sub

 

[My Aswer Is This]

You need to write your script like this:
After the value is entered into the active cell the Option Button is set back to false.

Private Sub CommandButton2_Click()
'Modified  11/12/2018  8:18:32 PM  EST
If GA23.Value = True Then ActiveCell.Value = GA23.Caption: GA23.Value = False
If GA10.Value = True Then ActiveCell.Value = GA10.Caption: GA10.Value = False
End Sub

 

[Caveman1964]

Thank you so much.......I so much appreciate you spending your time helping me. I am learning a lot but my brain is hurting....absorbing a lot/1
Thanks

 

[My Aswer Is This]

Thank you so much.......I so much appreciate you spending your time helping me. I am learning a lot but my brain is hurting....absorbing a lot/1
Thanks

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[Caveman1964]

Again thanks....I was getting an end if block error.....I did something, now i'm not so I dont know. but it works like a charm!

 

[My Aswer Is This]

If you wanted to loop through all the Option buttons in your userform to see which one is chosen.
You can use this short script.

Just make sure you do not choose more then one.

Private Sub CommandButton3_Click()
'Modified  11/12/2018  9:13:07 PM  EST
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "OptionButton" Then If c.Value = True Then ActiveCell.Value = c.Caption: c.Value = False
Next
End Sub

 

[Caveman1964]

Great Thanks!!!!!