select in a combobox based on textbox value

[kelly mort]

Hello,
I need another help today too. I have a textbox called txtCurrentUser on a userform.
The value in txtCurrentUser could be as:
M1Afighter
M2Bswimmer
M3Cdrummer
M4Dpainter
M5 crier(contains space)

So this is what i wanna do: when the 4th character in txtCurrentUser is say "f", then i wanna select the first item in a combobox called Cmb1. And when the 4th character in txtCurrentUser is say "s", then i wanna select the second item in the Cmb1. This can go down to say 12 conditions. I need guidance with how to achieve my goal.

Thanks in advance.
Kelly

 

[MickG]

Assuming you run the code relating to the Textbox/Combobox from a CommandButton
Then you need something like this code:-

Private Sub CommandButton1_Click()
With ComboBox1
    Select Case Mid(TextBox1.Text, 4, 1)
        Case "f": .Value = .List(0)
        Case "s": .Value = .List(1)
    End Select
End With
End Sub

 

[kelly mort]

Okay it is working fine. But is there a way to display the item selected in the combobox? It seemed not to appear in the combobox and i have to select it again to make it show. Thanks once again. Kelly

 

[MickG]

Have a look at this example, perhaps you can work out what's gone wrong with your code.
Fill Textbox with the testing button or by hand then click the "Get combobox value Button".
https://app.box.com/s/wnxx31u5s8q9e6jpp8ji8oyawzxc7ccm

 

[kelly mort]

I have tried downloading several times but not going through. Page loads then stops

 

[kelly mort]

Okay i have used internet explorer to download it finally. Now testing it. Thanks

 

[kelly mort]

Okay cool with it now. I was placing the code at the wrong event to trigger it. Just noticed. Thanks again.

One last thing maybe: how do i get the first two characters instead. Say "M2".

Kelly

 

[MickG]

If you mean the first 2 characters of the value selected in the combobox, then as below in Red.

Private Sub CommandButton1_Click()
With ComboBox1
    Select Case Mid(TextBox1.Text, 4, 1)
        Case "f": .Value = [COLOR=#FF0000]Left(.List(0), 2)[/COLOR]
        Case "s": .Value [COLOR=#FF0000]= Left(.List(1), 2)[/COLOR]
    End Select
End With
End Sub

 

[kelly mort]

I want the first 2 characters in the textbox to make the selection in the combobox. I think something like this maybe:

Private Sub CommandButton1_Click()
With ComboBox1
    Select Case Left(TextBox1.Text, 2, 2)
        Case "M2": .Value = .List(0)
        Case "M3": .Value = .List(1)
    End Select
End With
End Sub

But i have not tried it yet because i am not with my pc at the moment.

 

[MickG]

Sorry I misunderstood !!!
I think this is what you want !!!:-

Select Case Left(TextBox1.Text,  2)