Pasar datos del listbox a hoja excel

Dante:

Nuevamente aqui apelando a tu conocimiento.

Coloque este codigo para que me pase los datos del listbox2 a la hoja excel y funciona muy bien, pero no consigo que lo haga a otra hoja de excel, es decir, los pasa a la misma hoja de excel donde se encuentra el listbox. El codigo es el siguiente:

Private Sub CommandButton2_Click()

fila = 1
For i = 0 To ListBox2.ListCount - 1
Cells(fila, 10).Value = ListBox2.List(i, 0)
Cells(fila, 11).Value = ListBox2.List(i, 1)
Cells(fila, 12).Value = ListBox2.List(i, 2)
Cells(fila, 13).Value = ListBox2.List(i, 3)
Cells(fila, 14).Value = ListBox2.List(i, 4)
Cells(fila, 15).Value = ListBox2.List(i, 5)
Cells(fila, 16).Value = ListBox2.List(i, 6)
Cells(fila, 17).Value = ListBox2.List(i, 7)
Cells(fila, 18).Value = ListBox2.List(i, 8)
Cells(fila, 19).Value = ListBox2.List(i, 9)
Cells(fila, 20).Value = ListBox2.List(i, 10)
Cells(fila, 21).Value = ListBox2.List(i, 11)
Cells(fila, 22).Value = ListBox2.List(i, 12)
Cells(fila, 23).Value = ListBox2.List(i, 13)
Cells(fila, 24).Value = ListBox2.List(i, 14)
Cells(fila, 25).Value = ListBox2.List(i, 15)
Cells(fila, 26).Value = ListBox2.List(i, 16)
Cells(fila, 27).Value = ListBox2.List(i, 17)
Cells(fila, 28).Value = ListBox2.List(i, 18)
Cells(fila, 29).Value = ListBox2.List(i, 19)
Cells(fila, 30).Value = ListBox2.List(i, 10)
Cells(fila, 31).Value = ListBox2.List(i, 21)
fila = fila + 1
Next

End Sub

1 Respuesta

Respuesta
4

Para pasar a otra hoja puedes hacerlo de esta forma, con esto no es necesario que selecciones la hoja destino, es decir, si estás en la hoja1, se va a guardar en la hoja2, cambia en la macro "Hoja2" por la hoja que desees.

Private Sub CommandButton2_Click()
    Set h = Sheets("Hoja2")
    fila = 1
    For i = 0 To ListBox2.ListCount - 1
        h.Cells(fila, 10).Value = ListBox2.List(i, 0)
        h.Cells(fila, 11).Value = ListBox2.List(i, 1)
        h.Cells(fila, 12).Value = ListBox2.List(i, 2)
        h.Cells(fila, 13).Value = ListBox2.List(i, 3)
        h.Cells(fila, 14).Value = ListBox2.List(i, 4)
        h.Cells(fila, 15).Value = ListBox2.List(i, 5)
        h.Cells(fila, 16).Value = ListBox2.List(i, 6)
        h.Cells(fila, 17).Value = ListBox2.List(i, 7)
        h.Cells(fila, 18).Value = ListBox2.List(i, 8)
        h.Cells(fila, 19).Value = ListBox2.List(i, 9)
        h.Cells(fila, 20).Value = ListBox2.List(i, 10)
        h.Cells(fila, 21).Value = ListBox2.List(i, 11)
        h.Cells(fila, 22).Value = ListBox2.List(i, 12)
        h.Cells(fila, 23).Value = ListBox2.List(i, 13)
        h.Cells(fila, 24).Value = ListBox2.List(i, 14)
        h.Cells(fila, 25).Value = ListBox2.List(i, 15)
        h.Cells(fila, 26).Value = ListBox2.List(i, 16)
        h.Cells(fila, 27).Value = ListBox2.List(i, 17)
        h.Cells(fila, 28).Value = ListBox2.List(i, 18)
        h.Cells(fila, 29).Value = ListBox2.List(i, 19)
        h.Cells(fila, 30).Value = ListBox2.List(i, 10)
        h.Cells(fila, 31).Value = ListBox2.List(i, 21)
        fila = fila + 1
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas