ComboBox / OptionButton code advice please

[ipbr21054]

Morning,

Below is an example of some code im surrently using to show / hide other optionButtuons

    Private Sub OptionButton6_Change()
        If OptionButton6.Value = True Then
        OptionButton1.Visible = False
        OptionButton2.Visible = False
        OptionButton3.Visible = True
        OptionButton4.Visible = True
    Else
        TextBox3.Value = ""
        TextBox4.Value = ""
        End If
        End Sub

My question is how would i go about the same kind of thing BUT take the value from a ComboBox selection NOT an option button.

Example.
On my userform ComboBox1 has the selectable options ONE TWO THREE.

How would i write the code so that,

If ComboBox1.Value = "ONE" Then
OptionButton1.Visible = True

Thanks

 

[diddi]

you basically answered your own question

    If ComboBox1.Value = "ONE" Then
        OptionButton1.Visible = True
    End If

you may need to make others not visible, which can be incorporated in the If block

 

[ipbr21054]

Strange as i did try that but nothing happened at all

 

[diddi]

do you have it in a combobox_change event handler sub

 

[ipbr21054]

Yes
As it didnt do anything i was playing around with code like ComboBox.List or ComboBox.Index etc etc but i wasnt happy with what i was doing so asked here.

 

[diddi]

try a doevents and see if that refreshes the userform view. or try checking combobox1.listindex value as a trigger

 

[ipbr21054]

Would you mind trying this your end as it looks ok but no option button is shown when i make the combobox selection
maybe you see an issue with what im using ?

    Private Sub ComboBox1_Change()
        ComboBox1= UCase(ComboBox1)
        If ComboBox1.ListIndex = "ONE" Then
        OptionButton1.Visible = True
        End If
        End Sub

 

[diddi]

this works for me

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "One"
    ComboBox1.AddItem "Two"
    ComboBox1.AddItem "Three"
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = 0 Then
        OptionButton1.Visible = True
    End If
    If ComboBox1.ListIndex = 1 Then
        OptionButton2.Visible = True
    End If
   
    'the general case is...
    'Controls("OptionButton" & ComboBox1.ListIndex + 1).Visible = True
End Sub

 

[diddi]

combobox listindexes are numeric and start at 0, not 1 (ie Base Zero array)

 

[ipbr21054]

Thanks Post #8 worked so later i will work on the form.
If any issues i will reply here.

Have a nice day