¿Como llevar datos de un listbox1 a un listbox2?
Para Dante Amor
Buenas estimado, le cuento que tengo una dificultad.
Tengo un formulario con registros proyectos, y quiero asignar a un proyecto un documento denominado "je", lo que necesito es poder pasar del listbox formulario "je generados" al listbox je del formulario proyectos, como se ve en la imagen.
1 Respuesta
H o l a:
Si quieres pasar todos los registros del formulario "je" al formulario "proyectos"
Private Sub CommandButton2_Click() 'Por.Dante Amor proyectos.ListBox3.List = ListBox1.List End Sub
Si quieres pasar solamente el registro seleccionado en el formulario "je" al formulario "proyectos"
Private Sub CommandButton1_Click() 'Por.Dante Amor Dim arr() If ListBox1.ListIndex = -1 Then Exit Sub ReDim arr(1, ListBox1.ColumnCount - 1) For i = 0 To ListBox1.ColumnCount - 1 arr(0, i) = ListBox1.List(ListBox1.ListIndex, i) Next proyectos.ListBox3.List = arr End Sub
Pero si quieres agregar varios registros, uno por uno, de "je" a "proyectos"
Private Sub CommandButton1_Click() 'Por.Dante Amor If ListBox1.ListIndex = -1 Then Exit Sub proyectos.ListBox3.AddItem For i = 0 To ListBox1.ColumnCount - 1 proyectos.ListBox3.List(proyectos.ListBox3.ListCount - 1, i) = ListBox1.List(ListBox1.ListIndex, i) Next End Sub
Cambia Listbox1 por el nombre de tu listbox en el formulario "je"
Cambia "Listbox3 por el nombre de tu listbox en el formulario "proyectos"
Cambia "proyectos" por el nombre de tu formulario proyectos.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
