Filtrar datos entre hojas Excel

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



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

Nos situamos en la hoja2



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


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] >>



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 >>

Descarga

Demo_filtros_Avanzados.zip (17.49 kB)

• < Prev