Excel VBA: Copiar rango filtrado variable

Resuelto
Eaheru Mensajes publicados 205 Estado Miembro -  
 matjukid -
Bonjour,

Estoy buscando resolver el siguiente problema desde ayer sin éxito:
Tengo un archivo de Excel que contiene cientos de filas, las operaciones son las siguientes:
- Realizar un filtrado en la columna K,
- Copiar las filas restantes después de este filtrado en la pestaña 1 de un nuevo archivo.

Mi problema radica en que el rango a copiar es variable y cambia cada día y que cuando intento copiar / pegar, también traslado las filas que normalmente están filtradas al nuevo archivo.
Lo que absolutamente no deseo :)

¿Alguien tendría una idea, por favor?

3 respuestas

  1. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
     
    Hola,
    La sintaxis para copiar solo las líneas visibles es la siguiente:

    Sheets(NombreDeLaHoja).Range("A2:AZ16500").SpecialCells(xlVisible).Copy

    En negrita: para adaptar

    por ejemplo:

    Range("A2:AZ16500") 
    puede convertirse en "variable" así:

    Range("A2:AZ" & Range("A65536").End(xlUp).Row)

    Cordialmente,
    -- No hay tal cosa como una pregunta estúpida, solo una respuesta estúpida. A.Einstein --
    4
    1. matjukid
       
      ¡Gracias por tus buenos consejos. ¡Es realmente amable!
      0
  2. Eaheru Mensajes publicados 205 Estado Miembro 20
     
    ¡Genial, lo integro! :)
    ¡Gracias! :)
    1
  3. Eaheru Mensajes publicados 205 Estado Miembro 20
     
    Así que funciona perfectamente. Y si en el proceso quiero eliminar las líneas que acabo de copiar desde el archivo original (y en este archivo original)?

    Edit: está bien, lo hago en dos veces y todo funciona perfectamente.
    Gracias de nuevo por la ayuda.
    1