ListBox Selection to TextBox

[gsandy]

I Have a ListBox and TextBox on a UserForm . On selecting an item in the ListBox I wish to have a description for that item appear in the TextBox. If a different item is selected a different description appears in the TextBox. Once a final selection is made a Command Button will run a routine.
What would be the code to show the description in the TextBox with each selection?
Thanks Sandy

[sintek]

Hi gSandy
Where is the description stored....This will get you started

Please Login or Register  to view this content.

[gsandy]

Hi Sintek,
I was going to write the description within the code, see below. But this is not working! More help needed.

Please Login or Register  to view this content.

[sintek]

Have a look at this code...Perhaps can amend to suite your requirements...Have no sample workbook to work with.

Please Login or Register  to view this content.

[gsandy]

It is getting closer. With the code below when I select an item in the ListBox it appears instantly in the TextBox, along with the note, just like I wanted.
But it works for all items except the first item?
I now wish to add a different note with each item in the list, i.e. "My note 2", "My note 3" etc. Maybe using an If statement or Select Case?

Please Login or Register  to view this content.

[gsandy]

Hi Sintek,

I have solved both problems with the code below. It now just needs tiding up.

Thanks for your help in getting me started. Cheers Sandy.

Please Login or Register  to view this content.

[bakerman2]

How many items (and descriptions ) are there in your Listbox ?

[gsandy]

Up to 20.
I have got Select Case working.

[bakerman2]

Up to 20.

Putting all that text in the code itself is overkill.
Better to put your items (columnA) and descriptions ColumnB) on a (hidden) sheet and use code below.
This also makes it easier to make changes to items or descriptions without having to dive into your code every time.

Please Login or Register  to view this content.

[gsandy]

Thanks Bakerman2. That worked a treat, and a lot easier to modify/add to. Cheers Sandy.

[bakerman2]

You're welcome and thanks for rep+.

[sintek]

Glad you got it working, Thanks for rep points.