Buen dia

Tengo un formato que va llenando un excel, debo cargar los datos de varios listbox a una determinada direccion de la hoja. En el adjunto el userform1 tiene el listbox2 que carga máximo tres filas, estas tres filas deben transferirse a la hoja "Chaeck in" en el rango  A25 a Z25. Como la idea es que el usuario llene todos los formularios y haga correcciones si es necesario, el userform9 tiene el boton que carga la data de todos los fomularios a la hoja.

No logro cargar el listbox; agradezco su acostumbrada ayuda.

FORMATO CREACION DE PROVEEDORES 1.0.xlsm

Sería algo así:

With Sheets("CHECKIN")
   filaedit = 25
   For i = 0 To UserForm1.ListBox2.ListCount - 1
      .Cells(filaedit, "a") = UserForm1.ListBox2.List(i, 0)
      .Cells(filaedit, "o") = UserForm1.ListBox2.List(i, 1)
      .Cells(filaedit, "t") = UserForm1.ListBox2.List(i, 2)
      .Cells(filaedit, "z") = UserForm1.ListBox2.List(i, 3)
      filaedit = filaedit + 1
   Next i
End With

 

Perfecto!!! Mil gracias. Hilo cerrado