Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple Listbox? Population
I have 32 list boxes on a userform. I want to populate them with the same
data. The list boxes are named listbox1, listbox2, etc. Is there an easier way to populate these boxes instead of doing each one separately? Like a loop or something Dim Counter, Listboxnumber AS Single For Counter = 1 to 50 For lbnbr = 1 to 32 Listbox & Listboxnumber.additem Counter Next Listboxnumber Next Counter |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple Listbox? Population
Private Sub UserForm_Initialize()
Dim i As Integer Dim aItems() As String Const nItems As Integer = 50 Const nLists As Integer = 32 'Create a 0based, 2 Dimensional array for the listitems ReDim aItems(0 To nItems - 1, 0 To 0) 'Fill it... For i = 1 To nItems aItems(i - 1, 0) = "Item" & i Next 'Assign the array to each control's list property For i = 1 To nLists Me.Controls("Listbox" & i).List = aItems Next End Sub -- keepITcool | www.XLsupport.com | keepITcool chello nl | amsterdam Pete wrote : I have 32 list boxes on a userform. I want to populate them with the same data. The list boxes are named listbox1, listbox2, etc. Is there an easier way to populate these boxes instead of doing each one separately? Like a loop or something Dim Counter, Listboxnumber AS Single For Counter = 1 to 50 For lbnbr = 1 to 32 Listbox & Listboxnumber.additem Counter Next Listboxnumber Next Counter |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Data Population for multiple sheets | Excel Discussion (Misc queries) | |||
ListBox population from Excel range | Excel Programming | |||
ListBox Multiple Selection | Excel Programming | |||
excel - ListBox multiple Select | Excel Programming | |||
listbox.value not equal to listbox.list(listbox.listindex,0) | Excel Programming |