listbox items transfer

**cassiopea** · 10-22-2009, 02:43 AM

I have a userform with two listboxes and three command buttons.

Listbox1 has Rowsource ("a1:a12)

With commandbutton1 (Add) I am adding selected items from listbox1 to listbox2.
With commandbutton2 (Delete) I am deleting items from listbox2.

Third commandbutton is Ok.

I would like with ok button transfer all items from listbox2 to worksheet - Columns (B:B).

How can I do that?

**rwgrietveld** · 10-22-2009, 03:03 AM

You can extent the OK button with

Please Login or Register  to view this content.

**Andy Pope** · 10-22-2009, 04:13 AM

alternative

Please Login or Register  to view this content.

**cassiopea** · 10-22-2009, 07:07 AM

It works, but if there are no items selected, then Run time error 1004 apears when I click ok button.

**Andy Pope** · 10-22-2009, 07:21 AM

then add a line to check the listcount property first.

Better yet only enable the button when listbox contains items.

**cassiopea** · 10-22-2009, 08:37 AM

I tried several codes but no one works. Errror always appears.

**Andy Pope** · 10-22-2009, 08:42 AM

It would have helped if you had posted what you had tried and details on the error.

Please Login or Register  to view this content.

**cassiopea** · 10-23-2009, 04:52 AM

And if ListBox2 is Multiselect and if I want to transfer only selected items (at once, not one by one) to worksheet (Columns B:B), how can I do that?

**Andy Pope** · 10-23-2009, 05:28 AM

You can not do it in one go. You can loop through the listbox and load the data into an array. You can then write the array to the worksheet with 1 line of code.

Why the need to do it in one rather than item by item?