problemas al pasar datos al listbox

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
federtuc
Miembro Frecuente
Miembro Frecuente
Mensajes: 50
Registrado: 11 Ene 2016 17:49

problemas al pasar datos al listbox

Mensaje por federtuc » 15 Ene 2020 12:30

Se puede lograr pasar toda una columna de un listbox1 a una sola columna de otro listbox2 separadas por un espacio?

Intento con

For i = 0 To UserForm1.ListBox1.ListCount - 1

If UserForm1.ListBox1.Selected(i) = True Then

UserForm1.ListBox1.List(i, 1) = UserForm1.ListBox2.List(UserForm1.ListBox2.ListCount - 1, 1)

Pero solo me carga en el listbox2 el último dato del listbox1.

He intentado tambien con

UserForm3.ListBox1.List(i, 1) = UserForm3.ListBox1.List(i, 1) & " " & UserForm3.ListBox2.List(UserForm3.ListBox2.ListCount - 1, 1)

y tampoco lo logro.



Responder