Pass multiple selected items from ListBox to array, join array items, then pass to cell

I'm trying to store userform values in each cell.

Listboxes have multiselection enabled. I want to store all of them in the same cell, comma-delimited.
What I'm trying to do here is to first store all selected items in the listbox into an array, then join them up and pass the values into the cell.

Here is a snippet of my code:

Please Login or Register  to view this content.

The commented line,

Please Login or Register  to view this content.

does not work, and return a runtime '1004' error.

What is wrong here, and what should i do?

Perhaps,

Move that line to below MsgBox, otherwise result of i = i - 1 becomes 0.

Originally Posted by jindon

Perhaps,

Move that line to below MsgBox, otherwise result of i = i - 1 becomes 0.

done it and it works! thanks!

Originally Posted by Norie

peejayjay

Just curious, why are you looping through the listbox twice?

I used a dynamic array to store the selected values in the listbox. The first loop is to count the number of selected items from the listbox and ReDim the array size to the number of selected items.

I'm pretty new to VBA and sorry if my code isn't the most efficient.

Originally Posted by mikerickson

There is no need to use an array. This uses a MsgBox (as does the OP) since I can't see where the data is supposed to go.

Please Login or Register  to view this content.

thanks! simple and saved me lines of code.