Buenas soy nuevo en este foro, y les pido una ayuda, tengo un problema con este codigo en VBA lo que sucede es que copia solo la primera columna. ¿Como haria para que copie todas las columnas que filtre de una base de datos  a un listbox1 y luego despues de seleccionarlo los copie o adhiera a otro listbox . ojo son mas de 12 columnas.

espero su pronta respues  aca les dejo que codigo con el cual solo puedo copiar una sola columan de los datos selecionado conn un checkbox:

Private Sub CommandButton6_Click() 'Aqui agrego los item selecionados del listbox1

  Dim iCtr As Long

  For iCtr = 0 To Me.ListBox1.ListCount - 1

  If Me.ListBox1.Selected(iCtr) = True Then

  Me.ListBox2.AddItem Me.ListBox1.List(iCtr)

  End If

  Next iCtr

  For iCtr = Me.ListBox1.ListCount - 1 To 0 Step -1

  If Me.ListBox1.Selected(iCtr) = True Then

  Me.ListBox1.RemoveItem iCtr

  End If

  Next iCtr

End Sub