Automatically fill in options on a form

[Audiojoe]

Hi,

I have a togglebutton and a combobox (which contains Yes, No and Maybe in it) on a userform I've designed. If I push the togglebutton I want Yes to be automatically displayed in the combobox. What line of code will I need to do this?

If it helps, the userform is called Userform2, the togglebutton is Togglebutton1 and the Combobox is called Combobox2

Thanks for any help

 

[Dave Hawley]

Hi

Try something like:

Private Sub ToggleButton1_Click()
Dim strReply As String
Select Case ToggleButton1.Value
Case True
strReply = "Yes"
Case False
strReply = "No"
End Select
ComboBox1 = strReply
End Sub

 

[Audiojoe]

Thanks Dave, that works great