List box?

Hi,

I have a list of items in a column. I would like to have a userform pop up with a list box (?) of all the items and I want to be able to select multiple items to perform an action on the row corresponding to the selected item.

I am thinking of other examples I have seen where there are two list boxes (?) and then arrow buttons between them. When you click the arrow the item moves from one list box to the other to see which have been selected.

I have never used list boxes before so if you have a link to some sample code that would be useful. Or if I should use another option please let me know.

Thanks for any insights,
~RUTH~

Dependant Dropdowns may be what your looking for.

Take a look here.

http://www.contextures.com/xlDataVal13.html

and here.

http://www.contextures.com/xlDataVal02.html

Hope that's what you're looking for.

Dean

Hi Dean,

Thanks for the neat post. I will try to use this sometime. Unfortunately it isn't what I am looking for. I am writing a macro and I have code to execute to the selected items. I really need a pop up window with list boxes.

Currently I am playing with listboxes. I have two one with the list of all the items and another with the list of the selected items. My code isn't working though. How do I add items to the .List() array?

~RUTH~

Ruth,

Sorry, but I'm a bit of a VBA non-entity. However, I downloaded this from VBA Express a long time ago and it may give you some ideas from looking at the code.

Sorry, I can't be of more assistance.

Dean

Thanks for the file Dean. Unfortunately they don't use the list box.

Does anyone know how to use multiselect listboxes? The below code works for a singleselect but not for multiselect. I know I am suppose to use .selected instead of .value but I am not sure how.

Thanks,
~RUTH~

lbTenants.AddItem (lbMeasures.Value)

Rem polling a multiselect listbox
Dim i As Integer
Dim outputStr As String

With UserForm1.ListBox1
    For i = 0 To .ListIndex - 1
        If .Selected(i) Then
            outputStr = outputStr & "List item # " & i & " chosen" & vbCrLf
        End If
    Next i
End With
MsgBox outputStr