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 de Wil CM
1