Pasar registros de un listbox a las celdas
Expertos , esta es mi duda:
Tengo un listbox con varios registros, ocupo pasar varios registros, pero solamente los seleccionados en el listbox, a la primera fila disponible de una hoja.
gracias por sus aportaciones
1 respuesta
Respuesta de Dante Amor
1
Pon lo siguiente en un botón de tu formulario. Cambia la hoja1 por la hoja en la que vas a pasar tus datos.
Lo que hace es pasar los datos de listbox a las columnas A, B y C, si requieres otras columnas cámbialas, si necesitas más columnas, entonces agrega más líneas:
h1.Cells(u, "C") = ListBox1.List(i, 2)
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
h1.Cells(u, "A") = ListBox1.List(i, 0)
h1.Cells(u, "B") = ListBox1.List(i, 1)
h1.Cells(u, "C") = ListBox1.List(i, 2)
End If
Next
End SubSaludos.Dante Amor
