Pasar datos de 2 Listbox a hoja

Podrían ayudarme estoy trabajando en esta macro para agregar el dato de 2 listbox en un reporte:

Fila = 2
Fila2 = 12
For i = 0 To ListBox2.ListCount - 1
h.Cells(Fila, 1).Value = ListBox2.List(i, 0)
h.Cells(Fila, 2).Value = ListBox2.List(i, 1)
Fila = Fila + 1
Next
For e = 0 To ListBox3.ListCount - 1
h.Cells(Fila2, 1).Value = ListBox3.List(e, 0)
h.Cells(Fila2, 2).Value = ListBox3.List(e, 1)
Fila2 = Fila2 + 1
Next

Lo que quisiera es que el listbox3 se agregue 3 espacios después de terminar los datos del listbox2 y no a partir de la fila 12 que indica Fila2 = 12

1 Respuesta

Respuesta
1

Después de hacer varias pruebas encontré la solución.

 Fila2 =  ListBox2.ListCount +3

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas