Como envío datos del listbox a hoja de excel
Hola y gracias por su tiempo,
bueno al grano, mire tengo este código
Rem este codigo sirve para enviar los valores de las columnas del
Rem listbox
Dim fila As Integer
For fila = 0 To ListBox1.ListCount - 1
Cells(fila + 4, 1) = ListBox1.List(fila, 0)
Cells(fila + 4, 2) = ListBox1.List(fila, 3)
Next
Con este código envío los valores de mi listbox a hoja de excel, me funciona, lo malo es que al darle al botón me lipia el listbox y vuelve a empezar pero al enviar nuevamente datos a la misma hoja me borra lo enviado primero y lo que yo quiero es que me lo coloque arriba o abajo de lo que envíe primero, no se si me explico, quiero llenar una base de datos con el listbox pero con esa orden no puedo porque me elimna lo que tengo en esas celda.
Gracias por su tiempo y ojala pueda contestarme
bueno al grano, mire tengo este código
Rem este codigo sirve para enviar los valores de las columnas del
Rem listbox
Dim fila As Integer
For fila = 0 To ListBox1.ListCount - 1
Cells(fila + 4, 1) = ListBox1.List(fila, 0)
Cells(fila + 4, 2) = ListBox1.List(fila, 3)
Next
Con este código envío los valores de mi listbox a hoja de excel, me funciona, lo malo es que al darle al botón me lipia el listbox y vuelve a empezar pero al enviar nuevamente datos a la misma hoja me borra lo enviado primero y lo que yo quiero es que me lo coloque arriba o abajo de lo que envíe primero, no se si me explico, quiero llenar una base de datos con el listbox pero con esa orden no puedo porque me elimna lo que tengo en esas celda.
Gracias por su tiempo y ojala pueda contestarme
1 respuesta
Respuesta de Elsa Matilde
1
Fila siempre arranca desde 4... y estás necesitando que en la próxima arranque en 5 luego en 6 y así.
Entonces primero tenés que obtener cuál es tu primer fila libre. Una manera es esta que recorre de abajo hacia arriba hasta encontrar una celda con datos:
libre= range("A65536").end(xlup).row + 1
For fila = 0 To ListBox1.ListCount - 1
Cells(fila + libre, 1) = ListBox1.List(fila, 0)
Cells(fila + libre, 2) = ListBox1.List(fila, 3)
Next
PD) Podes evitar la palabra Rem colocando solo una comilla ' para identificar un comentario. Una notación un poco más actual... ;)
Entonces primero tenés que obtener cuál es tu primer fila libre. Una manera es esta que recorre de abajo hacia arriba hasta encontrar una celda con datos:
libre= range("A65536").end(xlup).row + 1
For fila = 0 To ListBox1.ListCount - 1
Cells(fila + libre, 1) = ListBox1.List(fila, 0)
Cells(fila + libre, 2) = ListBox1.List(fila, 3)
Next
PD) Podes evitar la palabra Rem colocando solo una comilla ' para identificar un comentario. Una notación un poco más actual... ;)
