Userform listbox selection populates two text boxes

[silvertyphoon1]

The userform contains multiple option buttons, a listbox and two text boxes. When I select an option button the listbox populates with certain items from a source on the “Lookup” sheet. That part works without issues. What I’m looking for is the following:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
1. When an item in the listbox is selected data populates the two text boxes on the userform with information from the “Lookup” sheet.<o></o>
The first textbox must come from the corresponding row in the E column, the second must come from the same row from the F column. <o></o>
So when a user clicks say option 1 for lights, the listbox will display different models. When the user selects the correct model the textbox labeled length will display the bulb length and the textbox labeled wattage will display the correct wattage for that bulb. <o></o>
This is a little lookup userform to find information. <o></o>
Thanks again<o></o>

 

[bensonsearch]

Hi,
Try using the vlookup function apon the listbox items

eg:

dim asd as variant
dim lengtha as variant
dim watt as variant
 
if listbox1.value = "light1" then
 
asd = listbox1.value
lengtha = Application.VLookup(asd , Worksheets("Sheet1").Range("A2:H9999"), 3, False)
'change range accordingly and the 3 is the coloum you wish the result for
watt = Application.VLookup(asd , Worksheets("Sheet1").Range("A2:H9999"), 4, False)
 
textbox1.text = lengtha
textbox2.text = watt 
 
elseif listbox1.value = "light2" then
 
asd = listbox1.value
lengtha = Application.VLookup(asd , Worksheets("Sheet1").Range("A2:H9999"), 3, False)
'change range accordingly and the 3 is the coloum you wish the result for
watt = Application.VLookup(asd , Worksheets("Sheet1").Range("A2:H9999"), 4, False)
 
textbox1.text = lengtha
textbox2.text = watt 
 
etc etc