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
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 Sub

Valora 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 Sub

Valora la respuesta Excelente o bueno para finalizar saludos!

Respuesta
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]

Respuesta
1

Este ejemplo

http://www.programarexcel.com/2015/09/pasar-datos-listbox-hoja-de-excel.html 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas