Excel VBA - RowSource for ListBox

[Bhuktar S]

The list is available in Sheet2, I want to put the selected in Sheet1.
How do I write in UserFormInitialize?
I tried
ListBox1.RowSource=WorkSheets("Sheet2).Range("A1:A20")
But does not work.
Secondly, I need to put the multiple selected items from the ListBox
to sheet1. How do I do that

 

[Bob Flanagan]

I have found it is easier just to add the entries to the list box:

Dim cell As Range
With UserForm1.ListBox1
.Clear
For Each cell In Worksheets("Sheet2").Range("A1:A20")
.AddItem cell.Value2
Next
End With

If you set the listbox to multi select then

Set cell = Worksheets("sheet1").Cells(1, 1)
Dim I As Integer
With UserForm1.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
cell.Value2 = .List(I)
Set cell = cell.Offset(1, 0)
End If
Next
End With

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

 

[superman10301983]

Try this..

ListBox1.RowSource="Sheet2!A1:A20"