Saltar al contenido

CARGA DETERMINADA LISTBOX A HOJA


Recommended Posts

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

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.