VBA - Select an optionbutton, dynamically changes the caption of another optionbutton

[Evapar18]

Hello all,
I am trying to make a user request form in excel for file requests and I need to select an "engine brand" and it changes the options buttons under "engine liter".

File: File Request Form.xlsx - Shared with pCloud

There may be an easier way to make this work but unfortunately, my company won't send me to training. So I learn what I can by searching and posting.

Private Sub OptionButton9_Click()

If OptionButton5 = True Then
OptionButton9.Caption = "D10"

ElseIf OptionButton6 = True Then
ActiveSheet.Shapes("OptionButton9").TextFrame.Characters.Text = "N45"

ElseIf OptionButton7 = True Then
OptionButton9 = "S4S Series"

ElseIf OptionButton5 = False Then
OptionButton9 = ""

ElseIf OptionButton6 = False Then
OptionButton9 = ""

ElseIf OptionButton7 = False Then
OptionButton9 = ""

End If

End Sub

Thanks,
Scott
If there is a better way please enlighten me.

 

[My Aswer Is This]

You have not explained what your object is here. And what type Option Buttons are you using and I do not believe a Option Button can have a value of ""

 

[Evapar18]

They are "Active X" option buttons within my spreadsheet, not on a user form. As for "", it can be anything "X". I just don't have an option if nothing is selected at the moment.

The object is to select the brand then be able to select the engine liter. After the selections are made to export each selected item to "X" cells, which have not been determined yet.

I should add, that I have each of the option buttons in their own group. 3 in "Engine_Brand" and 5 in "Engine_Liter".

Does that help?

 

[My Aswer Is This]

I see option buttons and checkboxes.

So what is your question?
You said export to x cells.

That is not specific at all. What does export mean?
And I cannot help with such a vague reference as to export to x cells.

 

[Evapar18]

My question is when I select "FPT" that the Options buttons under "Engine Liter" changes to "N45" and another to "N67", the others can be blank or "X". If I select "Mitisbushi" then the options buttons can be "SS-Series", "ST-Series", rest blank or "X". If "Doosan" is selected the ones showing the image above are shown and can be selected. The end goal will be to copy all the selections to a series of cells, but I think I can do that when I add the button. Right now I just want to be able to rename the captions of each of the Options buttons under the "Engine Liter", per the selection of the Engine Brand. - I hope this makes better sense.

 

[My Aswer Is This]

Well here is a example.
You did not provide the names of the option buttons or checkboxes.
So here is a example.

Private Sub OptionButton1_Click()
'Modified  12/2/2019  4:21:41 PM  EST
If OptionButton1.Value = True Then CheckBox1.Caption = "N45"
End Sub

 

[Evapar18]

Thanks for the replies! I will give that try.

FYI I uploaded the spreadsheet, I thought that would make it easier to see the problem(s). Also, I have since moved this over to a module so its not specific to the optionbutton1 click. I don't even know if that is right to do or not. I also think that I should try something else since this seems too hard to explain.

 

[My Aswer Is This]

A lot of people on this forum have no problem down loading users files to their computers and writing all the code for the user. But I do not do that.

And