Pasar datos de un listbox a otro, pero en diferentes formularios
Necesito pasar los datos de un listbox1 con datos, en formulario1 a otro listbox2 vacío en form2... Ambos listbox tienen la misma estructura.
1 Respuesta
Respuesta de Elsa Matilde
1
Si estamos hablando de formularios USERFORM las instrucciones que coloqué en un botón de comando (imaginando un listbox de 2 col) son:
Private Sub CommandButton1_Click() 'x Elsamatilde 'se declara el listbox del 2do Userform2 en variable Set uf2 = UserForm2.ListBox1 i = 0 'recorre la 1er lista While i <= ListBox1.ListCount - 1 'se agregan los datos de las 2 col uf2.AddItem ListBox1.List(i, 0) uf2.List(i, 1) = ListBox1.List(i, 1) i = i + 1 Wend 'mostrar el 2do uf... se mantiene abierto el 1ro. UserForm2.Show End Sub
Atención que ahora el 1er UF queda abierto, no olvides de cerrarlo en algún momento.
Muchas gracias por tu tiempo... te cuento que el código funciona muy bien, pero con un solo detalle... en mi listbox son 4 columnas... ¿cómo sería en ese caso? Muchas Gracias!
Repetí esta línea 2 veces más:
Uf2.List(i, 1) = ListBox1. List(i, 1)
Solo tenes que reemplazar el número 1 por 2 y 3 que indica el número de columna. Como se empieza en 0 el número 3 corresponde a la 4ta columna.
Sdos y no olvides valorar la respuesta.
