Hola Raúl

Prueba con

Criteria1:="*" & busqueda & "*"

Un saludo desde Vitoria

P.S. Unos filtros avanzados también podrían irte bien, usa el buscador con Filtro o Avanzado, he subido ya varios ejemplos (te adjunto uno de ellos, funciona con un textbox y una macro de evento)

ioyama:

disculpa me podrias explicar sencillamente el proceso de crear estos filtros?????
desde ya muchas grax por la ayuda
lucas

Hola rusharramar

El filtro avanzado es una de las opciones que trae excel, menú Datos > Filtros > Filtros avanzados.

El problema es que la ejecución manual es un poco pelma, para evitar esto lo que hacemos usar macros.

Si ejecutas un filtro avanzado a mano al tiempo que usas la grabadora de macros para registrar tus acciones podrás ver el resultado que obtienes. Con este simple paso asignando la macro grabada a un botón, si pulsas este botón (es decir ejecutas la macro) cada vez que cambias el elemento a filtrar el filtro actuaría.

No obstante todavía podemos hacer otra mejora usando el evento KeyUp del TextBox, con una pequeña macro de evento cada vez que introducimos algo en el TextBox la macro se ejecuta automáticamente con lo que conseguimos que el filtro funcione en "continuo".

Las macros de evento no van en un módulo, sino que van en la hoja, entra en el editor de VBA (Alt+F11) y en el proyecto del libro en cuestión clickea sobre la Hoja1, así podrás ver la macro.

Un saludo desde Vitoria

P.S. No olvides revisar la ayuda sobre Filtros

Hola amigo me parece muy buena la solución del los filtros avanzados ahora bien se me ocurre lo siguiente. Yo soy ing. En mantenimiento mecánico y este registro debe tener mas 5mil fallas por lo que es fundamental poder filtrar cada rango es decir ya puedo filtrar con un criterio mas sin embardo seria bueno poder hacerlo con mas criterios!!
Aquí t dejo un adjunto para que en tiendas mi razón. En este caso utilicé

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
[A12].Value = "*" & TextBox1.Text & IIf(TextBox1.Text = "", "", "*")
If [A12].Value = "*" Then [A12].Value = "@"
Call Filtrar
End Sub

Private Sub Filtrar()
Application.ScreenUpdating = False
uf = Sheets("Registro general").[A65536].End(xlUp).Row
Sheets("Registro general").range("A9:P" & uf).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=range("A11:A12"), CopyToRange:=range("A13:P13"), Unique:=False
Application.ScreenUpdating = True
End Sub

Agradezco tu ayuda!!

Hola Raúl

Falta el adjunto.

Y puedes usar tantos criterios como campos tengas, incluyendo las opciones Y u O.

Un saludo desde Vitoria

Ioyama

pero si utilizo la planilla como ej quiero redactar la macro para cada concepto de la cuenta cc como seria????? y desp si me aparecen mas conceptos puedo agregarlos a la macro???? como????

desde ya muchas gracias

Raul

alguna idea???? si puede ser una mano????
gracias

Hola rusharramar

Tranquilo que la ayuda si es posible llega, pero has de comprender que no vivimos de esto y tenemos otras actividades a realizar.

No entiendo muy bien qué es lo que requieres, te adjunto tu archivo con un filtro avanzado colocado, pero si has analizado los ficheros subidos a esta consulta creo que podrías haber llegado tú sólo al mismo resultado, a no ser que estés pidiendo algo que no he captado.

Tú dirás.

Un saludo desde Vitoria

Amigo aquí le dejo el adjunto seguí su recomendación y de verdad se funciona pero ahora se me ocurre que si se pudiera filtrar por varios criterios seria fenomenal ya que se necesita filtrar mas de 5mil fallas te explico. Si pudiera filtrar las fallas por tipos de falla y ademas por componentes cambiados por citar un ejemplo!! He tratado con "o" "y" pero la verdad es que siempre me sale un error agradezco tu ayuda saludos