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