Saltar al contenido

Copiar datos de un listbox a otro con doble click

publicado

Buenas tardes, tengo este codigo para pasar un dato seleccionado de Listbox1 a listbox2 que funciona perfecto. Lo unico que no pude resolver es que me copie todas las columnas.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If Listbox1.ListCount = 0 Then Exit Sub

Listbox2.AddItem (Listbox1)

End Sub

Probe con esto

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If Listbox1.ListCount = 0 Then Exit Sub

Listbox2.AddItem (Listbox1)

i = Listbox2.ListCount - 1

For j = 1 To 5

Listbox2.List(i, j) = Listbox1.List(ListBox1.ListIndex, j)

Next j

End Sub

Pero me dice "No se puede configurar la propiedad List. Los tipos no coinciden", alguna sugerencia?

Muchas gracias desde ya

Featured Replies

publicado

Hola:


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ListBox2.AddItem
For y = 0 To ListBox1.ColumnCount - 1
ListBox2.List(ListBox2.ListCount - 1, y) = ListBox1.List(ListBox1.ListIndex, y)
Next

End Sub
[/CODE]

Llevas ya 9 temas y sigues incumpliendo las normas del foro.

La próxima vez que no subas un archivo para pruebas o que no englobes el código VBA en su correspondiente etiqueta, tu consulta será cerrada sin previo aviso.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.