listbox to cells??

[tomro1]

i have a listbox in a userform were some text is in ( titles of books )
sometimes this are 5 titles, sometimes 3 or 20.

now i need a code that when i push a button, the titles are being
copied to cells in a worksheet beginning from cel a1

and my problem is, i don't know the right code.

and its not:
range("sheet1!a1") = listbox.text
or .value

plz help me

 

[Jim Cone]

If you know how many items in the list (say 7) then try ...

Worksheets("Sheet1").Range("A1:A7").Value = Me.ListBox1.List
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


in message
i have a listbox in a userform were some text is in ( titles of books )
sometimes this are 5 titles, sometimes 3 or 20.
now i need a code that when i push a button, the titles are being
copied to cells in a worksheet beginning from cel a1
and my problem is, i don't know the right code.

and its not:
range("sheet1!a1") = listbox.text
or .value
plz help me

 

[jindon]

Code
-------------------

Dim i As Integer, n As Integer
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
n = n + 1
Sheets("Sheet1").Cells(n, "a").Value = .ListIndex(i)
End If
Next
End With