Hola estimados Maestros del  Excel (Vbasic)

sorry pero cuando puedan... alguien me podria ayudar , solo quiero lograr que el formulario 2 imprima desde listbox

 

Minuta 2018 mvo.xlsm

Revisa esta parte del código.

For x = 1 To ListBox1.ListCount - 5
   a.Cells(x + 2, "A") = ListBox1.List(x, 0)
   'a.Cells(x + 2, "B") = CDate(ListBox1.List(x, 1)) 'Este dato no es una fecha
   a.Cells(x + 2, "C") = ListBox1.List(x, 2)
   a.Cells(x + 2, "D") = ListBox1.List(x, 3)
   a.Cells(x + 2, "E") = ListBox1.List(x, 4)
   a.Cells(x + 2, "F") = ListBox1.List(x, 5)
   'a.Cells(x + 2, "G") = CDec(ListBox1.List(x, 6)) 'No existe la columna del Listbox
Next

 

Hola meduvilla, prueba el adjunto haber si es lo que quieres, pero como dice el Gran Maestro Antonio revisa esas líneas de código que no corresponden a nada. Se que has hecho un copia y pega de este código que por supuesto esta bién yo también lo hago pero un consejo que te doy es que estudies el funcionamiento de cualquier código que caiga en tus manos para así poco a poco adquirir conocimientos de Vba.

Minuta 2018 mvoPrueba1.xlsm