How to match combobox with textbox in userform

[Waimea]

Hi, I have an userform with a combo box and a textbox and I am trying to get the textbox to show the corresponding value of the chosen item in the combo box.

The combobox is named ComboBox1 and the textbox is named Textbox1.

When I select item1 I want the textbox to show the text for item1.

All suggestions are welcome!

 

[nemmi69]

I think its this

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">[COLOR=#101094][FONT=inherit]Private[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit] ComboBox1_Change[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#303336][FONT=inherit]    Textbox1[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Text [/FONT][/COLOR][COLOR=#303336][FONT=inherit]= [/FONT][/COLOR]</code>ComboBox1.List
End Sub

 

[Waimea]

Thank you for your reply!

Option Explicit


Dim xRg As Range


Sub UserForm_Initialize()
    Set xRg = Worksheets("Data").Range("A2:B11")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
  
Private Sub ComboBox1_Change()
   ' TextBox1.Text = ComboBox1.List
   On Error GoTo 10
   
   Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
   
10:
   Exit Sub
   
End Sub

This code works but perhaps there is a better or different way of doing the same thing? Perhaps using Application.WorksheetFunction.Match??