Haplox

A ver, que se carguen ¿Cómo? No tienes ningún combo o listbox para seleccionar ningún cliente. Al abrir el form con la hoja filtrada ¿Qué quieres que se cargue automáticamente en él? ¿Cómo irías pasando de un cliente a otro? Todo esto no se refleja en tu userform, dónde solo están los campos de la tabla. ¿Con lo de anterior y siguiente es para pasar de uno a otro? ¿Entonces qué significa lo de "111 de 111"?

Espero que algún programador tenga un super pantallón para poder ayudarte. En mi humilde portátil el userform se sale por todos lados de la pantalla . ¿Es necesario hacerlo tan gigante? Yo no puedo trabajar sobre él y por lo tanto no puedo ayudarte

No sé, pero... ¿Porqué no dejas la tabla tal cual sin eliminarla? Digo yo

Otra vez el "#$% foro dejándote a medias editando un post 😡 Y digo si es lo que quieres, porque al ser un fichero de texto (csv), lo puedes importar en excel mediante: Pestaña "Datos"-->Obtener Datos Externos-->Desde un Archivo Una vez en el cuadro de diiálogo de importación, en tu caso debes elegir "Mis datos tienen encabezados" y "Separados por comas". Te dejo un resultado Libro1.xlsx

@manzano , solo tenías que cambiar lo siguiente... si es que lo que ponnes en tu código es lo que quieres... For i = 1 To 5 Fichero = Dir(ThisWorkbook.Path & "\EXCEL\" & i & ".csv", vbArchive) If Fichero <> "" Then Set wbDestino = Workbooks.Open("ThisWorkbook.Path & "\EXCEL\" & Fichero)

Si funciona entonces es lo más correcto . Si que es una buena forma, no sé si no te explicaste o yo no entendí nada...

Joder @manzano ... Cómo no te va a dar error si no son ficheros xlsx!!! Esa es una cosa por la que se empiezan los post pidiendo ayuda: EXPLICANDO LAS COSAS

Viendo tu archivo no entiendo nada 😲. Qué imagen? ¿Con qué criterio? En cada equipo siempre hay los mismos miembros? ¿En qué celda insertar la imagen, al lado? Como ves, me parece que en tu cabeza tienes claro qué quieres, pero nosotros no somos adivinos

@Manuyes , te dejo una solución. prueba y comenta Inventario.xlsm

¿Y tu fichero excel?

No, no la has puesto. Si no subes un archivo de ejemplo, con los rangos que ocupas, si hay saltos entre líneas y demás, poco se puede hacer. En ese código no se sabe qué has seleccionado, cuantas columnas, etc

Porque tienes un jaleo de macro importante... . Mejor sube tu fichero origen y uno de los destinos y explica qué quieres hacer o copiar

Te sobran unas comillas justo delante de ThisWorkBook: WorkBooks.Open("ThisWrokBook.Path....)

No dices dónde te da el error, de momento prueba así: For i = 1 To 5 Fichero = Dir(ThisWorkbook.Path & "\EXCEL\" & i & ".xlsx", vbArchive) If Fichero <> "" Then Set wbDestino = Workbooks.Open("ThisWorkbook.Path & "\EXCEL\" & Fichero) De todas las maneras tienes un pequeño jaleo con las constantes, los rangos, etc 😉

Si es el EXCEL ese que tenías sería: Fichero = Dir(ThisWorkbook.Path & "\EXCEL\" & i & ".xlsx", vbArchive)