Hello all,
The following code populates a range with values from a listbox.
The listbox length is variable.
lets say that the listbox contains for example 25 items.
The code will fill the range with 25 items.
How can I keep the loop until it fills the range with for eample 200 items.
Private Sub CommandButton1_Click() For n = 1 To ListBox1.ListCount Sheets("ROSTERS").Cells(7, n + 6).Value = ListBox1.List(n - 1) Next n End Sub
.ListCount informs the loop. If there are 200 items in the list, it will continue until the end of the list. If you change it to
and there aren't 200 items in the list, the code will throw an errorFor n = 1 To 200
Frob first, tweak later
i read your post again.
Private Sub CommandButton1_Click() For i = 1 To 200 n = n +1 Sheets("ROSTERS").Cells(7, n + 6).Value = ListBox1.List(n - 1) If n = ListBox1.ListCount then n = 0 Next i End Sub
Thanks Neil, that worked just great!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks