Pasar de listbox a hoja de libro "ventas"
En esta ocasión quisiera preguntarles como hago para pasar los datos que tengo en el listbox con 7 columnas a una hoja especifica del libro.
3 Respuestas
Respuesta de Adriel Ortiz Mangia
3
H o l a
Te paso la macro, sustituye el nombre de la hoja por el tuyo
Sub Guardar()
Set h1 = Sheets("Hoja1")
u2 = h6.Range("A" & Rows.Count).End(xlUp).Row + 1
'
For i = 0 To Listaregistro_Hijos.ListCount - 1
'
H1.Cells(u2, "A") = ListBox1.List(i, 0)
H1.Cells(u2, "B") = ListBox1.List(i, 1)
H1.Cells(u2, "C") = ListBox1.List(i, 2)
H1.Cells(u2, "D") = ListBox1.List(i, 3)
H1.Cells(u2, "E") = ListBox1.List(i, 4)
H1.Cells(u2, "F") = ListBox1.List(i, 5)
H1.Cells(u2, "G") = ListBox1.List(i, 6)
Next
'
MsgBox "Registro guardado"
'
End SubValora la respuesta Excelente o bueno para finalizar saludos!
Macro actualizada, cambia también el nombre del listbox
Sub Guardar()
Set h1 = Sheets("Hoja1")
u2 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
'
For i = 0 To Listaregistro_Hijos.ListCount - 1
'
H1.Cells(u2, "A") = ListBox1.List(i, 0)
H1.Cells(u2, "B") = ListBox1.List(i, 1)
H1.Cells(u2, "C") = ListBox1.List(i, 2)
H1.Cells(u2, "D") = ListBox1.List(i, 3)
H1.Cells(u2, "E") = ListBox1.List(i, 4)
H1.Cells(u2, "F") = ListBox1.List(i, 5)
H1.Cells(u2, "G") = ListBox1.List(i, 6)
Next
'
MsgBox "Registro guardado"
'
End SubValora la respuesta Excelente o bueno para finalizar saludos!
Respuesta de Percy Fernando Zevallos Rodríguez.
1
Tengo en mente la solución con un copia y pega, de que rangos, si es posible comparte el archivo a mi correo [email protected]
