Copiar celdas visibles (hay celdas filtradas) ¿como indico que vaya siempre hasta la última?

[Marichan]

Estoy haciendo una macro en la que debo copiar un listado de datos de una columna. En esa columna hay datos filtrados: Ejemplo: columna D / Nombre de la columna: Colores / Variables: Azul, Rojo, Verde /

Filtro los verdes y debo copiar y pegar.

El tema es que cada vez que corra la macro la cantidad de valores puede ser diferente.

[Armando Montes]

Una posibilidad es usar CurrentRegion

[HBanchieri]

Hola Marichan y Armando Montes.

Con el permiso de Armando Montes paso el código que copia de la hoja activa a partir de la celda "A2, Current Region" y pega a partir de la celda A2 de la hoja 2. (Inspirado por CachoR.)

[B]Sub CopiarFiltrado()


[/B]

[B]With [a2].CurrentRegion


      .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Hoja1").Range("A1")

End With

End Sub

[/B]

[/CODE]

Saludos.