List Range in Userform Listbox

[SimpleSimon88]

Hi again.
I am trying to find/work out how to list a range within a listbox

I can get it to work on a worksheet using Active X listbox (As it has an option for FillRange)

All I'm needing is my range displayed on a userform

example names:
Userform1
Range1

Thanks

(Image to follow to show what I mean) ...

 

[puru.sve]

use this like code ..


Private Sub UserForm_Initialize()
UserForm1.ListBox1.AddItem Range("A1:A2").Address
End Sub

 

[SimpleSimon88]

Hi Puru.sve

This returns just the range array ($B$3:$Q$5001)

Simon

 

[SimpleSimon88]

This is what I'm aiming for but in a userform listbox not ActiveX
Excel VBA ActiveX Series #7 ListBox - Custom Fill A Listbox Any Way You Want - YouTube

 

[SimpleSimon88]

Just to solve confusion....

This returns just the range array ($B$3:$Q$5001)

This returns the above when I've altered the code to suit my code to...

[COLOR=#333333]Private Sub UserForm_Initialize()[/COLOR]
[COLOR=#333333]UserForm1.ListBox1.AddItem Range("Range1").Address[/COLOR]
[COLOR=#333333]End Sub

R[/COLOR][COLOR=#333333]ange1 =[/COLOR][COLOR=#333333] ($B$3:$Q$5001)

[/COLOR]

Simon

 

[FormR]

Try:

Private Sub UserForm_Initialize()
With Me.ListBox1
    .List = Range("Range1").Value
    .ColumnCount = Range("Range1").Columns.Count
End With
End Sub

 

[puru.sve]

ActiveSheet.Shapes("List Box 1").ControlFormat.List

this is for user form ...

Your problem is solved or it still persist ?

Let me know
</pre>