Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
1 1 150x150, Copiar filas filtradas hacia un nuevo libro

Copiar filas filtradas hacia un nuevo libro

| 7 comentarios

Usualmente, cuando trabajamos con información a la cual le aplicamos un filtro para quedarnos solamente con algunas filas, deseamos que esas filas filtradas se copien a un nuevo libro de Excel.

Si bien, este proceso se puede realizar de manera manual, seleccionando el rango, copiándolo, abriendo un nuevo libro de excel, pegar la información y ajustar el tamaño de las columnas, mediante la siguiente macro presenta una alternativa que permite acelerar el proceso descrito. El código que nos permitirá realizarlo es el siguiente:

Sub Copiar_filtro()

 'Paso 1

If ActiveSheet.AutoFilterMode = False Then
Exit Sub
End If

'Paso2

ActiveSheet.AutoFilter.Range.Copy
Workbooks.Add.Worksheets(1).Paste

'Paso 3

Cells.EntireColumn.AutoFit

'Paso 4

Application.DisplayAlerts = False
Sheets("Hoja2").Delete
Sheets("Hoja3").Delete

End Sub

 A manera de ejemplo, veamos el siguiente archivo Copiar filas filtradas.

Éste contiene una hoja llamada "08061000000" en la cual se encuentra la información correspondiente a las exportaciones peruanas de Uva durante el año 2013, obtenido de la página web de SUNAT (http://www.aduanet.gob.pe/).

En el paso 1, lo que hace la MACRO es verificar si es que se ha activado un filtro dentro de la hoja activa, de no ser así, la MACRO termina en este paso y no ocurre nada con la data de la hoja;

1 1 300x61, Copiar filas filtradas hacia un nuevo libro

(Para mayor visualización de la imagen, hacer click en la misma)

si se detecta un filtro, se procede al paso 2.

1 2 300x98, Copiar filas filtradas hacia un nuevo libro

(Para mayor visualización de la imagen, hacer click en la misma)

 

En el paso 2, lo que se hace es seleccionar el rango que se encuentre filtrado (en este caso se ha filtrado las exportaciones hacia Bélgica, "Belgium" en el archivo). Entonces, las filas filtradas se copian y se abre un nuevo libro de excel.

2 1 300x174, Copiar filas filtradas hacia un nuevo libro 2 2 300x134, Copiar filas filtradas hacia un nuevo libro

(Para mayor visualización de la imagen, hacer click en la misma)

En el paso 3, en el nuevo libro se ajusta el tamaño de las columnas que se han pegado

En el paso 4, lo que se hace simplemente es eliminar las hojas 2 y 3 que aparecen por default cuando se abre un nuevo libro, de tal manera que el libro generado para pegar la información filtrada solo cuente con una hoja (aquella con la información que habíamos filtrado)

3 1, Copiar filas filtradas hacia un nuevo libro

3 2, Copiar filas filtradas hacia un nuevo libro

NOTA: Al ser esta una tarea de uso frecuente, se recomienda que esta MACRO se guarde dentro del libro personal de macros.

-----------------------------------------------------------

Elaborado por: Diego Solís Pezzia

7 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.