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

pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 772
 
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
matjukid
 
¡Gracias por tus buenos consejos. ¡Es realmente amable!
0
Eaheru Mensajes publicados 205 Estado Miembro 20
 
¡Genial, lo integro! :)
¡Gracias! :)
1
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