Boa noite!!

Use a pesquisa do fórum!!!

Poste seu arquivo modelo compactado!!

Att

Supondo que você tem 3 colunas no ListBox1 e quer transferir todos os itens para o ListBox2, utilize :

Associe a um CommandButton, na rotina abaixo os itens não precisam estar selecionados, são transferidos todos :

'Autor: José Arnaldo do nascimento

 Private Sub TransfereTodos()
    Dim lItem As Double
    
    Me.ListBox2.Clear
    Me.ListBox2.ColumnCount = 3
    
    For lItem = 0 To ListBox1.ListCount - 1
        
            Me.ListBox2.AddItem ListBox1.List(lItem, 0)
            ListBox2.List(Me.ListBox2.ListCount - 1, 1) = ListBox1.List(lItem, 1)
            ListBox2.List(Me.ListBox2.ListCount - 1, 2) = ListBox1.List(lItem, 2)
    Next
    
End Sub

Associe a um CommandButton, nesta rotina são transferidos somente os itens selecionados :

Private Sub TransfereSelecionado()
    Dim lItem As Double
    
    Me.ListBox2.Clear
    Me.ListBox2.ColumnCount = 3
    
    For lItem = 0 To ListBox1.ListCount - 1
        
        If ListBox1.Selected(lItem) = True Then
            Me.ListBox2.AddItem ListBox1.List(lItem, 0)
            ListBox2.List(Me.ListBox2.ListCount - 1, 1) = ListBox1.List(lItem, 1)
            ListBox2.List(Me.ListBox2.ListCount - 1, 2) = ListBox1.List(lItem, 2)
        End If
    Next
    
End Sub

[]s

Perfeito.
Exatamente o que eu precisava.

Boa noite!!

Lembre se de marcar seu tópico como resolvido!!!
viewtopic.php?f=7&t=3784

Att