fmMultiSelectExtended

[KayWill]

Hello, I've been searching the web for hours and it seems I just can not locate exactly what I need. I'm hoping someone can assist. I've created a userform that has a listbox which users can add items. I have set the RowSource to the named range in the Excel spreadsheet that will also hold added items from the user. I want the listbox, once selected, to auto populate a textbox. Brief example below: (also see attachment)

Sheet name is: "PartIndex" (contains part # in Column1 and description in Column 2, approx. 35K+ records)
Named Range is: "PTNO"
ListBox 11 through ListBox20 all have a ROWSOURCE as PTNO

I want the PTNO to update with any "new" 'part numbers' included by the user and if already existing in the list I want the TextBox to auto populate with the description that matches the part number selected in the listbox.

I tried using the following but only works with the first listbox:
Me.ListBox11.RowSource = ""
Me.ListBox11.List = Sheets("PartIndex").Range("A3:B35710").Value

Hope this link helps
https://docs.google.com/document/d/14XmlZrZnFEE9Z1K1uJVUV9DHYj4bnj9OArH0cTxSuKo/edit?usp=sharing

 

[KayWill]

Hello, I've been searching the web for hours and it seems I just can not locate exactly what I need. I'm hoping someone can assist. I've created a userform that has a listbox which users can add items. I have set the RowSource to the named range in the Excel spreadsheet that will also hold added items from the user. I want the listbox, once selected, to auto populate a textbox. Brief example below: (also see attachment)

Sheet name is: "PartIndex" (contains part # in Column1 and description in Column 2, approx. 35K+ records)
Named Range is: "PTNO"
ListBox 11 through ListBox20 all have a ROWSOURCE as PTNO

I want the PTNO to update with any "new" 'part numbers' included by the user and if already existing in the list I want the TextBox to auto populate with the description that matches the part number selected in the listbox.

I tried using the following but only works with the first listbox:
Me.ListBox11.RowSource = ""
Me.ListBox11.List = Sheets("PartIndex").Range("A3:B35710").Value

Hope this link helps
https://docs.google.com/document/d/14XmlZrZnFEE9Z1K1uJVUV9DHYj4bnj9OArH0cTxSuKo/edit?usp=sharing

Seems like I resolved my own question, guess this was another one no one wanted to respond to.