asked on

How to change listbox entries via Excel 2010 VBA

below is the code that I use to retrieve a list of items from the .xls
I'd like this list to be the source of List Box 52

My code returns the correct list (via the msgbox)
however returns an error when I try to assign it to the rowsource of List Box 52

Sub ListBox53_Change()
Dim i, dept As Integer
Dim DeptRowSource As String
With Worksheets("triangles").ListBoxes("List Box 53")
MsgBox (.ListCount)
MsgBox (.Selected(1))
' For i = 0 To .ListCount - 1
'If .Selected(i) Then
'msg = msg & .List(i) & vbNewLine
'End If
'Next i
End With
'Adjust Department List Box
DeptRowSource = ""
For dept = 1 To Worksheets("Vars").Range("ListBoxItems_Dept_Genius").Rows.Count
If Worksheets("Vars").Range("AF5").Offset(dept - 1, 2) > 0 Then
DeptRowSource = DeptRowSource & Worksheets("Vars").Range("AF5").Offset(dept - 1, 1) & ";"
End If
Next dept
MsgBox (RowSource)
'Update list of depts based on Company Selection
Worksheets("triangles").ListBoxes("List Box 52").RowSource = DeptRowSource

End Sub

Also side Q - how do I change the names of the listboxes (without making them ActiveX listboxes)?

thx

Martin Liss

To answer your second question first, in Design Mode right-click on the listbox and it's default or current name will appear in the little box just below the upper-left hand corner of the window. You then slect that name, type in wjat you want it called and press return.

To help you with your first question I think I'll need your workbook.

endurance

ASKER

thanks,
though I think I can simplify the question:
See attached .xls
I get an error when I run the "ChangeSourceofLB1" macro to set the rowsource of the multiselect listbox
Test---populate-listbox.xlsm

ASKER CERTIFIED SOLUTION

Martin Liss

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

endurance

ASKER

Thanks - that will work, though is there a way to directly assign the source of the listbox to a string.

Martin Liss

Don't take this as a definitive answer but I don't think so.

Martin Liss

.AddItem("add a value")

endurance

ASKER

don't want to just add items - as I need to redefine the list (as the actual use is to also take items off of the list)...

also - I saw online the use of "RowSource = "
I see that it didn't work for me, just curious what are people referring to, and why didn't it work for my usage

Martin Liss

I believe RowSource works when you reference an Access table but then again I'm not sure.