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 |
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 |
All times are GMT +1. The time now is 01:13 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com