Profesor

'
Sencilla macro para filtrar datos entre hojas
'
MS Excel
'

'
Desarrollo del archivo
 
Tenemos por ejemplo los siguientes datos en nuestro libro deExcel 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 lossiguientes:
 
Nos situamos en la hoja2
 

 
en la Celda A1 de la hoja2 escribimos la siguiente formula >>
=Hoja1!A1
 
Ya que el filtro lo vamos arealizar 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 2será la celda CLAVE donde vais a escribir el dato en este caso hemos escrito [cuatro] >>
 

 
Para que cuando ejecutéis el código os filtre todos las filasreferidas 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 >>
 

 Si teneis cualquier duda sobre filtros y filtros avanzados >> podéis dirigiros a la comunidad Microsoft excel >>
'http://www.microsoft.com/communities/newsgroups/en-us/default.aspx?....

'
Como siempre os digo hacer buen uso siempre de los archivos que os ofrecemos
'
Descarga << aqui >>