Transfer data from List Box

[Guest]

I have created a userform with a list box. I have everything working fine
except the OK button. After highlighting the items on the list I want the OK
button to find the next open cell in column B and transfer the highlighted
items. So what I need help with is the code for transferring items from the
listbox to column B on the spreadsheet.

Any help is appreciated

 

[Dick Kusleika]

Ronbo

Dim rNextCell as Range

'Find next open cell in column B
Set rNextCell = Sheet1.Range("B65536").End(xlUp).Offset(1,0)

'Write value
rNextCell.Value = Me.ListBox1.Value

If you have a multiselect listbox, see here
http://www.dicks-blog.com/archives/2004/06/14/retrieve-values-from-a-multi-columnselect-listbox/