Jump to content

Haplox

Members
  • Content Count

    2,609
  • Joined

  • Last visited

  • Days Won

    81

Haplox last won the day on November 17

Haplox had the most liked content!

About Haplox

  • Rank
    José
  • Birthday September 16

Profile information

  • Gender
    Hombre
  • Localización:
    Madrid
  • Interests
    Sr. Shrödinger, su gato ha sufrido un accidente. Tengo buenas y malas noticias…

Converted

  • Campos
    ;

Recent Profile Visitors

3,582 profile views
  1. 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"?
  2. 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
  3. No sé, pero... ¿Porqué no dejas la tabla tal cual sin eliminarla? Digo yo
  4. 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
  5. @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)
  6. 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...
  7. 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
  8. 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
  9. @Manuyes , te dejo una solución. prueba y comenta Inventario.xlsm
  10. 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
  11. Porque tienes un jaleo de macro importante... . Mejor sube tu fichero origen y uno de los destinos y explica qué quieres hacer o copiar
  12. Te sobran unas comillas justo delante de ThisWorkBook: WorkBooks.Open("ThisWrokBook.Path....)
  13. 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 😉
  14. Si es el EXCEL ese que tenías sería: Fichero = Dir(ThisWorkbook.Path & "\EXCEL\" & i & ".xlsx", vbArchive)
×
×
  • Create New...

Important Information

Privacy Policy