Agregar datos de un listbox a otro listbox

3 envíos / 0 nuevos
Último envío
Jesus Espinoza
Imagen de Jesus Espinoza
Offline
última acción: Hace 1 año 9 meses
Nivel 1 - 200 puntos
alta: 02/03/2016 - 02:42
Puntos: 305
Agregar datos de un listbox a otro listbox

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

 

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 13 horas 33 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 9585
Entiendo que el listbox está

Entiendo que el listbox está en un formulario.

Prueba a cambiar la propiedad .ColumnCount del listbox al número que necesites de columnas.

 

Un saludo

Jesus Espinoza
Imagen de Jesus Espinoza
Offline
última acción: Hace 1 año 9 meses
Nivel 1 - 200 puntos
alta: 02/03/2016 - 02:42
Puntos: 305
Buenos días Con,Si ya

Buenos días Con,

Si ya realizar eso, lo que sucede es que deseo que copie lo seleccionado y lo adhiera al otro listbox, el otro listbox tiene las mismas propiedades que el primero.