XL-Dennis sent me this code to link a combo box inside a userform to data inside the A column on a sheet:
Private Sub UserForm_Initialize()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnData As Range
Dim vaData As Variant
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Blad1")
With wsSheet
Set rnData = .Range(.Range("A1"), .Range("A65536").End(xlUp))
End With
vaData = rnData.Value
With Me.ComboBox1
.Clear
.List = vaData
.ListIndex = -1
End With
End Sub
This works great. Now I would like it to link the data from column B into an empty txt box dependng on what is chosen in the combo box e.g
A B
red light
blue dark
yellow light
green light
Column A is the combo box and column b is the empty txt box.
What I want to happen is what is chosen in column A its corresponding data in column b automatically fills in inside the txt box.
So if you choose red in the combo box, light will appear in the empty txt box.
The txt box will always b changing depending on what is selected from the combo box.
Can someone help me ?