Comments on: Populating Multi-Column ListBox/ComboBox

By: tumdo2

tumdo2 — Tue, 11 Oct 2011 07:31:00 +0000

Hi
I have small problem
1. I have combobox and few labels, which read in sheet rows and columns
I need read information read in combobox and label to one row which element like
read information from difrent row
2. If I have more comboboxes i using one of them and read information from difrent rows when i change the element i combobox then every other combobox and labels change row to this same
Thank you for help
Patryk

By: tumdo2

tumdo2 — Tue, 11 Oct 2011 07:24:00 +0000

Hi
I have small problem
1. I have combobox and few labels, which read in sheet rows and columns
I need read information read in combobox and label to one row which element like

By: Gideono Odushola

Gideono Odushola — Tue, 26 Apr 2011 18:49:00 +0000

Hi
Thanks for sharing your wealth of knowledge in Excel VBA, I have benefited from one of your codes shown above.. I was wondering if you could help me slightly further, I have managed to adjust your code (shown below) to work for me, but I am unable to get this codes to populate a multi column listbox with cells values obtain from excel range (i.e. A2:C10).. but the problem is i have rows that are empty (i.e A5:C5, row 5) and I want the listbox values to exclude this row. is it possible to amend the sode below to do this please...

Private Sub UserForm_Initialize()
Dim cell As Range
Dim Rng As Range

With ThisWorkbook.Sheets("Sheet1?)
Set Rng = .Range("A2?, .Range("A2?).End(xlDown))
End With

For Each cell In Rng.Cells
With Me.ListBox1
.AddItem cell.Value
.List(.ListCount - 1, 1) = cell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell.Offset(0, 2).Value
End With
Next cell

End Sub

By: cafeine

cafeine — Thu, 03 Feb 2011 19:19:00 +0000

Thanks for this,

just a comment

When you have

Dim Rng As Range

don't forget before end sub

Set Rng = Nothing

By: Peter Williams

Peter Williams — Fri, 26 Nov 2010 10:05:00 +0000

Thanks Dick,

I figured that must be the case but couldn't find any limitation anywhere and somewhere had seen a reference to 'unlimited' columns in a listbox.

In practice there's usually some reasonably easy 'way round'.

By: Dick Kusleika

Dick Kusleika — Thu, 25 Nov 2010 19:17:00 +0000

There is a limit on the number of columns you can have in a listbox. When I hit that limit, I end up combining two fields into one or putting two listboxes next to each other. It’s a pain.

By: Peter Williams

Peter Williams — Wed, 24 Nov 2010 12:54:00 +0000

Feel like something is staring me in the face but I just can’t get my routine to work properly. If I try to add an 11th column to my listbox.

I get an error message stating that “Error 380 Could not set the list property. Invalid property value”
This occurs after – ListBox1.List(0, 9) = “Value £s”. Any ideas anyone

Sub displaylistbox()
Dim i1 As Integer, i2 As Integer
ListBox1.Clear
ListBox1.MultiSelect = fmMultiSelectSingle
ListBox1.ColumnCount = 13
ListBox1.ColumnWidths = “4 cm;2 cm; 2.5 cm;1 cm;2.5 cm;2.5 cm;2.5 cm;2.5 cm;2.5 cm ;2.5 cm ;2.5 cm “
ListBox1.AddItem “Name”
ListBox1.List(0, 1) = “Post Code”
ListBox1.List(0, 2) = “Lead Recd.”
ListBox1.List(0, 3) = “wk #”
ListBox1.List(0, 4) = “Status”
ListBox1.List(0, 5) = “Date”
ListBox1.List(0, 6) = “Tel”
ListBox1.List(0, 7) = “Mobile”
ListBox1.List(0, = “Lead Code”
ListBox1.List(0, 9) = “Value £s”
‘ListBox1.List(0, 10) = “Points”
For i2 = 1 To my_dbase(0, 0)
If my_dbase(i2, 0) = 1 Then
i1 = ListBox1.ListCount – 1
ListBox1.AddItem my_dbase(i2, 1)
ListBox1.List(i1, 1) = my_dbase(i2, 5)
ListBox1.List(i1, 2) = Format(my_dbase(i2, 9), “ddd dd-mmm-yyyy”)
ListBox1.List(i1, 3) = my_dbase(i2, 10)
ListBox1.List(i1, 4) = my_dbase(i2, 12)
ListBox1.List(i1, 5) = Format(my_dbase(i2, 11), “ddd dd-mmm-yyyy”)
ListBox1.List(i1, 6) = my_dbase(i2, 6)
ListBox1.List(i1, 7) = my_dbase(i2, 7)
ListBox1.List(i1, = my_dbase(i2,
ListBox1.List(i1, 9) = my_dbase(i2, 13)
‘ListBox1.List(i1, 10) = my_dbase(i2, 14)
End If
Next i2
End Sub

By: Bill Benson

Bill Benson — Tue, 23 Nov 2010 21:36:00 +0000

I am glad there are a combination of methods here because I found that I really needed more than one method. I had a series of listboxes each with one less item than the others (process of eliminating the selected item from predecessor listbox, before putting remaining items in the next listbox, and so on)… but by the time I got to the last listbox I could not add 2 columns as an array using the list property. I tried every variation on this. ultimately I gave up and when ubound(MyArray,2) = 1 (i.e., which happened only on the last listbox which had but one choice to offer – I know, a dumb interface) I used .AddItem instead and the .List property for the other columns. Thanks to everyone here!

By: Richard

Richard — Mon, 08 Mar 2010 17:33:00 +0000

Please help,

I am trying to populate a 4 column list box with a large amount of data from a seperate sheet ("Portfolio"), ideally I would like the list box to keep cylcling through the main list until it reaches the end (blank line) then enter the cell values into the list box accordingly.

Just cant figure it out so any help would be much appreciated!!

Thanks in advance

By: Jamey

Jamey — Mon, 01 Mar 2010 15:36:00 +0000

I'm struggling with some VBA code/logic (I am a bit of a newbie) to do the following:

1/ Use the value selected from one listbox to limit the values displayed in another list box (similar to how a filter would limit the display of rows to only those having the first selected value)
2/ The 2nd listbox needs to have its items added dynamically based upon the item selected from the 1st listbox
3/ The 2nd list box should only add unique items ... no duplicates in the list of items in the 2nd list box

I need this logic to apply to 4 list boxes in total such that the items in listbox 2 are limited by the value selected in listbox one and the items in listbox 3 are limited by the value selected in listbox 2 and, finally, the items in listbox 4 are limited by the value selected in listbox 3.

All list boxes are sitting in cells of a spreadsheet ... not in a userform.

Any advice/code most appreciated! Thanks!