COPIAR Y PEGAR UN RANGO DE CELDAS VISIBLES TRAS HACER FILTRO

[andres palacios]

Buenas tardes todos los miembros de éste fantástico foro.

Estoy intentando hacer una macro pero me surge una duda, os agradecería mucho vuestra ayuda.

La duda es; Tras hacer un filtro en dos columnas ¿cómo puedo copiar el rango de celdas que queda visible (con el encabezado) y pegarlo en otra hoja?

Adjunto archivo, la idea sería copiar el rango ya filtrado de la "Hoja 1" a la "Hoja 2".

Muchas gracias por vuestra valiosa ayuda.

Un saludo

Copiar celdas visibles.xlsm

[Antoni]

Cualquiera de estas 2 macros te vale:

Sub CopiarFiltro1()
Hoja2.Range("A:D").Clear
Hoja1.Range("A1:C" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row).Copy Hoja2.Range("A1")
End Sub

Sub CopiarFiltro2()
Hoja2.Range("A:D").Clear
Hoja1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Hoja2.Range("A1")
End Sub

 

[JSDJSD]

Hola a ambos, te dejo otra opción más.

Sub CopiarFiltro3()
    Hoja2.Range("A1").CurrentRegion.Delete
    Hoja1.Range("A1").CurrentRegion.SpecialCells(12).Copy Hoja2.Range("A1")
End Sub

 

[andres palacios]

Buenas antony y jsdjsd.

Magnificas las tres alternativas que proponeis, funcionan todas muy bien!

Muchas gracias por vuestra ayuda, como siempre muy útil

un cordial saludo ;)