Foro Excel

Hola a Todos:
Nececito hacer un Formulario de Busqueda que Busque en la Columna A todos las celdas en las cuales se encuentre cierta cadena de caracteres (Por ejemplo si busco 801 el formulario asuma como resultados por ejemplo celdas con valores C801, 801A, 47801, etc) Al encontrar una celda que cumpla con la busqueda la incorpore junto con los 4 valores a la derecha de esta (Columnas C; D; E y F) a un listbox. Asi se generarí­a un listado con todos los valores que cumplen esta condición.

Sé que es un poco complicado el tema, pero la verdad es que no se me ocurre como hacerlo, o quizas exista un solución similar más simple. De todos modos les agradezco de antemano la buena voluntad.

PD: Adjunto Archivo de Muestra

Mi Aporte.

Hasta pronto

Gracias cubaezb:
Ese es el tipo de solución que ando buscando, estuve mirando el código y eso es lo que necesito, el problema es que no me está funcionando el If, aun cuando en teorí­a cumple la función. Me gustarí­a saber si a a otros le ha funcionado bien para así­ descartar problemas con mi sistema. Por ultimo, existe una forma de ir agregando los resultados individualmente al listbox (additem o algo así­) por que despues estos resultados tengo que asociarlos con otras planilla (El E-801 habre la planilla E-801.xls)
Te vuelvo a agradecer tremendamente el aporte.

Creo que podré tenerte una respuesta más elaborada en la tarde. En cuanto a la condición para buscar texto es raro que no te funcione (en mi equipo funciona perfectamente) incluso pueden establecerse rangos o criterios de búsqueda como [0-9] , mira en la ayuda de Visual Basic la función Like para más ejemplos.

Si a alguien más no le sirve el código por favor publicar el mensaje

Hasta Luego

Gracias cubaezb:

Con tu macro hice la que necesitaba, aun está en periodo de desarrollo pero ya tengo clara la idea, gracias por el aporte, le mando el archivo por si a alguien le sirve.

AL DESCARGAR EL ARCHIVO NO MUESTRA LAS FORMULAS USADAS. ESTA PROTEGIDA LAHOJA??? CONFIRMAR. ME INTERESA ESE ARCHIVO. GRACIAS.

No existen fórmulas. Lo que debes hacer es ejecutar el formulario desde el editor de Visual Basic (Alt+F11). La hoja no tiene protección ni restricciones.

Para dsalvado:
Pusiste While Range("A" & Tmp1) <> Empty y esto impide que la búsqueda continúe si hay celdas vací­as así­ en las siguientes exista un valor aunque me parece una buena medida para dar dimensiones a la matriz.

Buen dí­a para todos

Hola a todos

cubaezb me parece muy practico tu aporte con ese buscador, estuve ensayandolo pero note que este archivo discrimina mayusculas y minusculas entonces cuando busco en minuscula no me sale nada, como podria aplicarla para ambos casos, es mi pregunta

Reemplaza las lí­neas que contienen if por las siguientes

1) If Range("A" & fila).Text <> "" Then
2) If Range("A" & fila).Text Like "*" & Texto.Text & "*" Or Range("A" & fila).Text Like UCase("*" & Texto.Text & "*") Then

Tambien funciona para rangos [a-z]

í‰xitos

Gracias Cubaezb, basandome en tu respuesta se me ocurrió otra idea, No es necesario cambiar lo If, basta con incorporar la siguiente orden al inicio de la subrutina del botón

Texto.Value = UCase(Texto.Text)

Me funciona perfecto por que transforma todo a mayusculas. (Hay que tomar cuidado eso si que Lo ingresado esté todo en mayusculas. Una forma de evitar problemas si es que estuvieran ingresado en minusculas o mixtos es la siguiente:

HOLA NECESITO SI ES QUE ME PUEDES MOSTRAR EL FORMULARIO DE BUSQUEDA XQ NO LO PUEDO VER TE LO AGRADECERIA MUCHO

Hola agradecería mucho si algún miembro pueda subir este archivo nuevamente
ya que no se puede descargar .
mucha gracias