UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO FILTRO DE LISTBOX MEDIANTE TEXTBOX el 05/05/17, 08:26 am

Leoalex13


Hola, buenas tardes, he visto este enlace y aun no me ha solucionado mi idea ya que soy nuevo en VBA y no lo manejo bien.

http://www.universoexcelforo.com/t2095-busqueda-inteligente-en-un-listbox-con-filtro-de-acuerdo-a-los-caracteres-ingresados-en-un-textbox?highlight=exportar+una+busqueda+a+un+listbox


Ahora bien, mi idea es muy similar. 

Tengo varias hojas con varias columnas. Y en el userform, tengo un textbox (Nbuscar) y dos listbox (Nservicio y Nprocedimiento). 

Primero se selecciona el servicio, y a partir de ahi es cuando se complica la cosa. 

Deseo que, una vez seleccionado el servicio, si tengo cualquier palabra o letra escrita en el textbox (Nbuscar), se me filtre el listbox (Nprocedimiento) con los datos que contengan las palabras de mi textbox.

El excel tiene varias paginas con las mismas columnas, por lo que al realizar la busqueda, habría que tener en cuenta eso.

*Sé que es en el "CHANGE" del textbox, pero no se qué poner.

Necesitaría un código para cambiar entre hojas  y otro para no cambiar.

Anexo el código ya que el archivo es demasiado grande como adjuntarlo

--> La columna de donde se cogen los datos para el listbox (Nprocedimiento) es la A (solamente).

Código:
Private Sub Nbuscar_Change()
    Nbuscar.Text = StrConv(Me.Nbuscar.Text, vbUpperCase)

       
'AYUDA
    End If
       
             
End Sub


Alguien me puede echar una mano?


Muchas gracias por su tiempo!!

jhon1904

avatar
Hola

Lea las normas del foro, es esencial que subas un archivo de ejemplo no necesariamente el original donde trabajas al menos uno similar a lo que necesitas y asi miramos como te podemos ayudar

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

3RESUELTO ARCHIVO el 08/05/17, 04:02 am

Leoalex13


Hola, por fin pude subir el archivo.

He dejado solo las hojas que son más relevantes para lo que deseo obtener.

Un saludo y gracias por su tiempo!
Archivos
CAU - FINAL.xlsm
No tienes los permisos para descargar los archivos.
(255 KB)

jhon1904

avatar
Hola Leoalex13

Subo tu archivo con un solución espero te sirva

saludos,
Archivos
CAU - FINAL.zip
No tienes los permisos para descargar los archivos.
(249 KB)


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

5RESUELTO Hola Jhon el 08/05/17, 11:29 am

Leoalex13


Hola! gracias por tu respuesta, voy a probarla ahora mismo a ver que tal!

Un saludo

6RESUELTO Hola de nuevo! el 08/05/17, 11:45 am

Leoalex13


Hola Jhon, probé tu idea y no me funciona...

He metido en el change, que cambie automaticamente lo que se escriba a mayusculas.

Por otro lado, lo que intento conseguir es:


*SI DESEO BUSCAR UNA PALABRA EN CONCRETO*

1- Seleccionar servicio
2- Escribir palabra de búsqueda en (NBUSCAR)
3- Pinchar en CARGAR
4- En el listbox (Nprocedimientos) deberían aparecer los elementos que contengan la palabra que deseo buscar en la columna de procedimientos de la hoja activa del servicio deseado.

*SI NO DESEO BUSCAR UNA PALABRA EN CONCRETO --> Lo hace bien ya)*
1- Seleccionar servicio
2- Dejar NBUSCAR vacío
3- Pinchar en CARGAR
4- En el listbox (Nprocedimientos) deberían aparecer todos los elementos sin filtrar de la columna de procedimientos de la hoja activa del servicio deseado.

Adjunto de nuevo el archivo...

Muchas gracias por intentar ayudarme!
Archivos
CAU - FINAL.zip
No tienes los permisos para descargar los archivos.
(250 KB)

jhon1904

avatar
Hola leoalex13

con el código que te asocie no necesitas de dar clic en el botón de cargar simplemente escribes en el textbox de buscar  y el va filtrando y agregando el procedimiento.


saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Leoalex13


Ahora cuando llegue a casa lo miro de nuevo. Pero creo que tambien habia probado eso.
También, me ha saltado un error con la formula del "with", luego te comenti de qué se trata exactamente

Un saludo!

jhon1904

avatar
hola en el texbox de buscar agregue el codigo
Código:
 On Error Resume next 
y listo para que salte el error

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

10RESUELTO Hola Jhon el 08/05/17, 06:21 pm

Leoalex13


Hola! acabo de probar el código y de momento parece que funciona bien.

Mañana probaré a pasarlo al archivo original a ver como se comporta!

Muchas gracias Jhon.

Hasta mañana!

11RESUELTO Gracias! el 10/05/17, 04:25 am

Leoalex13


Hola Jhon!

Muchas gracias por tu ayuda!

He abierto otro post solicitando un código similar al que me diste, pero esta vez sin tener que cambiar de hojas...

Si puedes ayudarme, te lo agradecería de nuevo!

El post lo he llamado "Hola de nuevo". Me confundí al crearlo...

Un saludo y muchísimas gracias!

Adjunto el enlace por si puedes ayudarme de nuevo  bounce

http://www.universoexcelforo.com/t2338-hola-de-nuevo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.