Multiselect listboxes

[theduckman16]

Hello -

I would greatly appreciate some help with a problem I have come across.

I have a form that has two listboxes and listbox1 is populated with the column headers in my worksheet. I want to be able to have the user select columns on the left and "add" them to listbox2. Here is the code that I have so far:

Private Sub CommandButton1_Click()
strMsg = "You chose this entry from the list box: " & vbCr
For i = 1 To ListBox1.ListCount
    If ListBox1.Selected(i - 1) = True Then
        strMsg = strMsg & ListBox1.List(i - 1) & vbCr
    End If
Next i
MsgBox strMsg

 

[theduckman16]

Do you mean you want to transfer the column headers from one listbox to another?

ie move and delete

Try this lightly checked code.

Option Explicit
 
Private Sub CommandButton1_Click()
Dim I As Long
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) Then
            ListBox2.AddItem ListBox1.List(I)
        End If
        Next I
 
     For I = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(I) Then
            ListBox1.RemoveItem I
        End If
     Next I
 
End Sub
Private Sub UserForm_Initialize()
Dim rng As Range
 
    ' first header on Sheet1
    Set rng = Worksheets("Sheet1").Range("A1")
 
    ' populate ListBox1 with headers from Sheet1
    While rng.Value <> ""
        ListBox1.AddItem rng.Value
 
        Set rng = rng.Offset(, 1)
    Wend
 
    ListBox1.MultiSelect = fmMultiSelectMulti
 
End Sub

I'm pretty sure there's a way to do it without 2 loops, but can't remember right now what it is.

I have already figured out how to transfer the list from one listbox to another. Now I need to take the list that I transfered over and delete all of the columns that are not in column 2 in my worksheet.

In the end I would like to loop that through all of the tabs in my workbook.

Let me know if this isn't clear enough.

 

[Norie]

Still not 100% sure what you mean but take a look at this http://www.box.net/shared/ig41yzis67.

 

[theduckman16]

Still not 100% sure what you mean but take a look at this http://www.box.net/shared/ig41yzis67.

This was EXACTLY what I needed.

Thank you SO much Norie!