Pasar datos de un listbox a otro del mismo formulario

Prueba:

Private Sub CommandButton1_Click()
  ListBox2.List = ListBox1.List
End Sub

Cursos de Excel:

https://www.youtube.com/watch?v=w7MYL3wDgH4&t=3s 

https://www.youtube.com/watch?v=dy9w9zbkCaw&t=644s 

https://www.youtube.com/watch?v=7Xhs04vhrtg&t=188s 

---

Cursos de Macros:

https://www.youtube.com/watch?v=PupmVvM16-8&t=1s 

https://www.youtube.com/watch?v=f_x8pstpNqc&t=3s 

https://www.youtube.com/watch?v=5k0szqErdXg&t=689s 

Sal u dos Dante Amor

Puedes utilizar la instrucción que pasa toda la lista, pero es posible que tengas problemas de formato, dependiendo del contenido de la lista. Tendrías luego que asignar el formato a cada columna diferente de texto.

Private Sub CommandButton1_Click()
    ListBox2.List = ListBox1.List      'ver formatos en la imagen 
End Sub

Si este es tu caso, quizás sea mejor pasar fila por fila y col por col ajustando formatos, todo en el mismo momento.

Private Sub CommandButton2_Click()     'Para al modelo de la imagen
'por cada fila
For x = 0 To ListBox1.ListCount - 1
    ListBox2.AddItem
    'por cada columna
    For i = 0 To ListBox1.ColumnCount - 1
        If x = 0 Then    'la fila de títulos no necesita formato
            ListBox2.List(ListBox2.ListCount - 1, i) = ListBox1.List(x, i)
        Else
            If i = 1 Then  'col 1 tiene formato fechas
                ListBox2.List(ListBox2.ListCount - 1, i) = Format(ListBox1.List(x, i), "dd-mm-yy")
            ElseIf i = 3 Then  'col 3 tiene formato moneda
                 ListBox2.List(ListBox2.ListCount - 1, i) = Format(ListBox1.List(x, i), "$ ##0.00")
            Else     'sin formatos
                ListBox2.List(ListBox2.ListCount - 1, i) = ListBox1.List(x, i)
            End If
        End If
    Next i
Next x
End Sub

En mi ejemplo tengo una tabla de títulos, por eso omito el control de formatos cuando x = 0.

http://aplicaexcel.com/manuales * Ya comenzó la promoción por Fin de Año !