Link Combobox to Textbox. Problem with text

aisietie · Feb 1st 2012

Hi,

I have a form where the value of the combobox is linked to the value of a textbox.
The data is from 3 columns, and it works when the data in the combobox is numeric, but fails when the data in the combobox is text.

In the attachement the example

Thx

aisietie

**pike** · Feb 2nd 2012

Re: Link Combobox to Textbox. Problem with text

Hi Agoaisietie
with your code..

Code

Option Explicit
Private Sub ComboBox1_Change()
    Dim koppel
    koppel = Application.VLookup(Val(ComboBox1.Value), Sheets("FSM").Range("A:C"), 3, False)
    If IsError(koppel) Then
        koppel = Application.VLookup(ComboBox1.Value, Sheets("FSM").Range("A:C"), 3, False)
    End If
    TextBox1.Text = koppel
End Sub
Private Sub CommandButton1_Click()
    End
End Sub
Private Sub UserForm_Initialize()
    Dim xList
    With Worksheets("FSM").Range("A1:A4")
        xList = .Value
        With Me.ComboBox1
            .List = xList
        End With
    End With
End Sub

Display More

aisietie · Feb 2nd 2012

Re: Link Combobox to Textbox. Problem with text

Pike,

Thanks a lot.

I have more questions, but I wil start a new thread.

Thank you very much

aisietie

Link Combobox to Textbox. Problem with text

Participate now!

Share