Officefull.es

Excel, word, powerpoint, android

Filtrar datos entre hojas Febrero 29, 2008

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

 

Categorías: Sin categoría

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *