Búsqueda con palabra clave en formulario ActiveX con Combobox

En otros artículos hemos vistos varios métodos de búsqueda en Excel. A la hora de buscar información de una base de datos extensa es muy útil. De acuerdo a su nivel de conocimiento de Excel  pueden utilizar cualquiera de ellos. Ver “Lista de Artículos”.

En este artículo vamos a acercarnos a una mini aplicación ya vista “Búsqueda inteligente con Combobox en Excel”. La diferencia es que se hacia la búsqueda de manera inteligente e incremental, es decir, a medida que introducíamos información en el combobox iba acomodando los resultados para mostrar. Sin embargo, ahora vamos a usar un evento click en un botón para realizar la búsqueda cuando introducimos la palabra clave. También nos va mostrando los resultados en una lista. De la otra forma hay que usar un evento “change” pero es más complicado controlar el código por la forma en que funciona el evento.

Click en la imagen para ver el video o en este Link.

Para explicar este método vamos a usar una pequeña plantilla de ejemplo.

Tenemos una lista de elementos ordenados que pueden ser productos, para el ejemplo basta:

Como ven, también tenemos un botón de lanzamiento. Si el formulario se llama “combo”, el código dentro de una macro sería.

‘macro que lanza el formulario

Sub ini()

combo.Show

End Sub

A diferencia del artículo anterior, agregamos un boton que llamamos “Search”.

Luego veremos el código que va a tener este boton de comando:

Private Sub Search_Click()

'limpio valores anteriores

ComboBox1.Clear

‘hago un bluque para agregar a la lista todos los ítemes que cumplan una condición

For i = 0 To 8

lista = Range("C" & 8 + i).Value

'reviso si el valor de la variable coincide con la key introducida

‘si coincide lo agrego a la lista

If InStr(1, lista, ComboBox1.Value, vbTextCompare) > 0 Then

ComboBox1.AddItem lista

End If

Next

'desplega la lista

ComboBox1.DropDown

End Sub

Otra cosa a tener en cuenta para que funcione el combo ,como esta previsto ,es cambiar el valor de ciertas propiedades. Para este caso:

‘esta propiedad permite efectuar búsquedas automáticas en la lista según la coincidencia del primer carácter o de todos a medida que se escribe.

                ‘para este caso no nos sirve y lo desactivamos.

                MatchEntry =2 – fmMatchEntryNone

El código es bastante simple, se utilizan sentencias simples. Sin embargo, si hay algo con el cual no estamos familiarizados, una variable, una propiedad, etc., pueden utilizar la ayuda de VBA con el botón F1 sobre la palabra. Sino lo pueden buscar en internet.

Ahora para terminar vamos a ver que pasa cuando utilizamos el combo de búsqueda.

Búsqueda sin palabra clave

SI chicleamos el botón sin colocar alguna palabra clave nos despliega la lista completa de elementos.

Búsqueda con palabra clave

La idea anterior volcada a nuestros formularios nos puede ser bastante útil para encontrar info. Como ven funciona.

-------------------------------------- FIN CÓDIGOS

Recuerden que los artículos algunas veces requieren un mayor o menor nivel de conocimiento en ciertos temas de Excel, por ejemplo formulas avanzadas, macros o VBA, etc. Sin embargo en los artículos se nombran todos los elementos y con esta información podemos hacer nuestras pequeñas investigaciones usando internet, así desarrollamos nuestro conocimiento. Por ejemplo si  utilizamos la función “Y”, que la suponemos conocida, y no sabemos ¿qué es? podemos buscar en internet para ver como se utiliza y cuales son los componentes. Las mini aplicaciones no son más que la recopilación de muchos elementos para dar forma a una nueva idea.

Pueden descargar algunos ejemplos (plantillas/templates) de la zona de Descargas. Si tienen alguna duda o consulta pueden hacerlo a través del formulario de contacto.

Les recomendamos que sigan el blog por alguno de los medios, mail o por redes sociales, para recibir las actualizaciones y novedades.

¡Éxitos!

Keys:

·         Búsqueda inteligente con formulario ActiveX.

·         Búsqueda incremental en Excel.

·         Combobox ActiveX.

·         Incremental search in Excel.