Saltar al contenido

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

publicado

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.

Featured Replies

publicado

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.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.