Te mando mi solución con este ejemplo.:
Tenemos un formulario con un listbox relleno y queremos pasar todas sus filas a la planilla de excel:
(El listbox es de 4 columnas)
Al presionar el botón que contiene esta macro pasaremos todas las filas del listbox a partir de la celda J1
Private Sub CommandButton1_Click()
fila = 1
For i = 0 To ListBox1.ListCount - 1
Cells(fila, 10).Value = ListBox1.List(i, 0)
Cells(fila, 11).Value = ListBox1.List(i, 1)
Cells(fila, 12).Value = ListBox1.List(i, 2)
Cells(fila, 13).Value = ListBox1.List(i, 3)
fila = fila + 1
Next
End Sub
recuerda finalizar
Saludos.Quería hacerles unas consulta.Tomando este código como se podría hacer para que una celda que tenga dispuesta como campo para firmar se valla desplanzando hacia abajo de acuerdo a la cantidad de filas seleccionadas para copiar.**************************Firma: - jose zu
@luis mondelo muchas gracias por el ejemplo. Tenia un super problema que solucione con tu ejemplo. - Julian Delgadillo