Copy the contents of a multicolumn listbox to another multicolumn on another Userfrom

[stirlingmw]

I am trying to pass a Listbox multicolumn selection over to another multicolumn Listbox on another open Userform, but only if there is text on at least one of the source listbox columns/

I have tried

[COLOR=#000000][FONT=Courier][FONT=Verdana, Geneva, sans-serif]listdest.additem listdest.list(listdest.listcount -1,1)=listsource.list(listsource.listcount-1,1).value[/FONT]
[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier][FONT=Verdana, Geneva, sans-serif]listdest.additem listdest.list(listdest.listcount -1,2)=listsource.list(listsource.listcount-1,2).value[/FONT]
[/FONT][/COLOR]

[FONT=&quot]
[/FONT]
Where am I going wrong?

Thanks

Steve

 

[DanteAmor]

Try this

Private Sub CommandButton1_Click()
    For i = 0 To listsource.ListCount - 1
        filled = False
        For j = 0 To listsource.ColumnCount - 1
            If listsource.List(i, j) <> "" Then
                filled = True
                Exit For
            End If
        Next
        If filled Then
            [COLOR=#0000ff]listdest.AddItem[/COLOR] listsource.List(i, 0)
            listdest.List(listdest.ListCount - 1, 1) = listsource.List(i, 1)
            listdest.List(listdest.ListCount - 1, 2) = listsource.List(i, 2)
            listdest.List(listdest.ListCount - 1, 3) = listsource.List(i, 3)
        End If
    Next
End Sub

 

[stirlingmw]

Dante

Thank you again. works perfectly. I did however have to change the numbers at the end of the code from 1 to 0 and 2 to 1.

Edit.ListDESLead.List(Edit.ListDESLead.ListCount - 1, 0) = Me.ListBox2.List(i,[COLOR=#ff0000] 0[/COLOR])
Edit.ListDESLead.List(Edit.ListDESLead.ListCount - 1, 1) = Me.ListBox2.List(i, [COLOR=#ff0000]1[/COLOR])

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.