pass userform subform listbox item to main form

[wpryan]

Hi All,
I have a userform which contains a subform with a couple of listboxes in it. The objective is that the user select certain items from listbox 1, to pass to listbox 2, and when completed to click a submit button, and all of those items go to the main form. I can't put the listboxes opn the main form, because the form is already too busy (not enough real estate, as it were).
I scrounged the code to select each item individually in the second listbox using this code:

Private Sub cmdSubmitRep_Click()
    For i = 0 To listbox2.ListCount - 1
        listbox2.Selected(i) = True
    Next i
    
End Sub

After the item is selected I want it transferred to Userform1.txtRep1. I can't seem to get that working. Additionally, what I'd like is that if there is more than one item selected, to have the items separated with either a dash or a comma (no real preference really).

any help is appreciated.

 

[tlowry]

I think what you want is:

Private Sub cmdSubmitRep_Click()
    Dim sSel, iCt
    UserForm1.txtRep1 = ""
    With Me.ListBox2
        If .ListCount < 1 Then Exit Sub
        ReDim sSel(.ListCount - 1)
        For iCt = 0 To .ListCount - 1
            sSel(iCt) = .List(iCt, 0)
        Next iCt
    End With
    UserForm1.txtRep1 = Join(sSel, ", ")
End Sub

 

[mikerickson]

I'm not sure what you mean by "main form" and "subform"

Are you talking about a user form that invokes a different user form? Or are you talking about a multipage control on a single user form? Or something else

 

[wpryan]

Hi All and thanks for your answers. tlowry, thanks, the code is working fine.