busquedas o criterios

Buenas Noches, Naner.

Lo que tu necesitas, es usar Filtros Avanzados, donde seleccionarias
todos tus registros como la BASE DE DATOS o LISTA DEL RANGO , y poner
las CRITERIAS O RANGO DE LA CRITERIA. que tu selecciones, como en este
ejemplo que tu mencionas:

A B C D
1 Nombres Apellidos Direccion Telefono
2 _______ ________ _________ _______
3
4
5 Nombres Apellidos Direccion Telefono
6 _______ ________ _________ _______
7 _______ ________ _________ _______
8 _______ ________ _________ _______


Filtros Avanzados: Filtrar la lista en misma Hoja.
Lista de rango o BASE DE DATOS A5:D50

Para realizar tu busqueda necesitarias crear o insertar un Objeto
(Cuadro, Circulo, etc), y asignandole la MACRO siguiente:

' Macro1 Macro
Selection.ClearContents
Range("A2:D2").Select
Range("A5:D50").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=Range _ ("A1:D2"), Unique:=False
End Sub

Espero te sea de ayuda.
Envianos tus RESULTADOS, dudas o comentarios.
Ahora bien, posteriormente te puedo enviar un ejemplo ya realizado,
pero haz el tuyo propio, para que veas como se realiza, es muy
sencillo.

Ok entiendo lo que me dices lo voy a poner en practica a ver, pero nunca he
trabajado con filtros avanzados ni macros, ya le avisare.
muchisimas gracias por su respuesta, y seguimos pendientes.!!

"De_Corando." escribió:

Buenas Noches, Naner.

Lo que tu necesitas, es usar Filtros Avanzados, donde seleccionarias
todos tus registros como la BASE DE DATOS o LISTA DEL RANGO , y poner
las CRITERIAS O RANGO DE LA CRITERIA. que tu selecciones, como en este
ejemplo que tu mencionas:

A B C D
1 Nombres Apellidos Direccion Telefono
2 _______ ________ _________ _______
3
4
5 Nombres Apellidos Direccion Telefono
6 _______ ________ _________ _______
7 _______ ________ _________ _______
8 _______ ________ _________ _______


Filtros Avanzados: Filtrar la lista en misma Hoja.
Lista de rango o BASE DE DATOS A5:D50

Para realizar tu busqueda necesitarias crear o insertar un Objeto
(Cuadro, Circulo, etc), y asignandole la MACRO siguiente:

' Macro1 Macro
Selection.ClearContents
Range("A2:D2").Select
Range("A5:D50").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=Range _ ("A1:D2"), Unique:=False
End Sub

Espero te sea de ayuda.
Envianos tus RESULTADOS, dudas o comentarios.
Ahora bien, posteriormente te puedo enviar un ejemplo ya realizado,
pero haz el tuyo propio, para que veas como se realiza, es muy
sencillo.