Filtrar datos entre hojas

Sencilla macro para filtrar datos entre hojas

Desarrollo del archivo

Tenemos por ejemplo los siguientes datos en nuestro libro de Excel en la hoja1:

Nombre - Dirección - C.P - Número

macro filtros avanzados

y queremos filtrar nuestra base de datos en una hoja2, entonces los pasos a realizar son los siguientes:

1 Nos situamos en la hoja2

2 en la Celda A1 de la hoja2 escribimos la siguiente formula:

 

=Hoja1!A1

Ya que el filtro lo vamos a realizar por Nombre que es así el rotulo que tenemos en nuestra hoja1!A1

macro filtros avanzados

Podéis hacer lo mismo para la celda B1-C1 y D1

Luego la celda A2 de la hoja 2 será la celda CLAVE donde vais a escribir el dato en este caso hemos escrito [cuatro]:

macro filtros avanzados 

y al ejecutar el código os filtra todas las filas referidas a esa celda

En este ejemplo hemos utilizado un Botón [ Active X llamado CommandButton1] para ejecutar dicho código y le hemos asignado la siguiente macro:

Private Sub CommandButton1_Click()
With Worksheets("Hoja2").Range("A2")
Sheets("Hoja1").Range("A1:d16").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B1:d1"), Unique:=True
End With:End Sub

Quedándonos nuestra hoja2 según ejemplo de Archivo:

macro filtro avanzado

 

Print