Combobox: sacándoles provecho

Como son varias las consultas que he recibido esta pasada semana, sobre el uso de los combobox, y a pesar de que ya son varios los artículos que tratan el tema, vamos a ver algunas cosas que creo que pueden ser de utilidad a muchos de los lectores del blog.

Vamos a ver varias cosillas sobre los combobox, para sacarles el máximo provecho. En concreto, en este artículo explicaré como hacer las siguientes cosas:

• Ejemplo 1: Cómo crear combobox dependientes, donde los ítems sean las diferentes hojas de cálculo que componen el libro (esto ya lo vimos en otro artículo, pero para un combobox no insertado en un formulario), y como el segundo combobox (el dependiente) muestra los datos que hay en la hoja seleccionada en el primer combobox.


• Ejemplo 2: Cómo crear un combobox con valores únicos a partir de una lista donde se repiten varios de los valores. Es decir, solo se mostrarán los ítems de tal forma que no estén repetidos, a pesar de que tengamos una lista con valores repetidos.


• Ejemplo 3: Cómo acceder a un elemento seleccionado en un combobox dependiente (aunque la técnica también nos servirá si lo que queremos es acceder simplemente a un elemento de un único combobox), o lo que es lo mismo, como saber en qué celda está el elemento del combobox que hemos seleccionado.

Ejemplo 1:

Comencemos por el principio. Vamos a ver como crear combobox dependientes dentro de un Userform, con los nombres de las hojas que componen el libro, y con los datos de la hoja seleccionada, que cargarán en el combobox secundario.

Una vez tengamos creado el userform, con sus dos combobox, tan solo tendremos que añadir estos códigos. El código del primer combobox será este, suponiendo que lo hayamos llamado Combobox1:

Private Sub ComboBox1_Enter() 'En caso de error, que continúe On Error Resume Next 'Esto se producirá cuando nos 'situemos sobre el combobox1 'antes quitaremos todo lo que haya en el combobox1 ComboBox1.Clear 'Vamos a llenar dinámicamente el combobox 'con los nombres de las hojas For i = 1 To Sheets.Count 'Añadimos los nombres de las hojas al combobox ComboBox1.AddItem Sheets(i).Name Next End Sub

El código del segundo combobox (el dependiente), será este, suponiendo que lo hayamos llamado Combobox2:

Private Sub ComboBox2_Enter() 'En caso de error, que continúe On Error Resume Next 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Limpiamos lo que haya ComboBox2.Clear 'Pasamos el dato de la hoja, a una variable hoja_elegida = ComboBox1.List(ComboBox1.ListIndex) 'seleccionamos esa hoja Sheets(hoja_elegida).Select 'seleccionamos la cela A1 Range("A1").Select 'Llenamos el combo con los datos del combobox1 'para lo cual supondremos que los datos de cada 'hoja están a partir desde A1 hacia abajo, y 'hasta encontrar una fila vacía Do While Not IsEmpty(ActiveCell) 'Añadimos los nombres de las hojas al combobox ComboBox2.AddItem ActiveCell 'bajamos una fila ActiveCell.Offset(1, 0).Select Loop 'Volvemos a la hoja1 que es donde 'tenemos el botón para lanzar el userform Hoja1.Select 'Mostramos el procedimiento Application.ScreenUpdating = True End Sub

Para lanzar el userform, nos bastará con incluir este código en un módulo VBA (suponiendo que el userform se llame userform1):

Sub lanzar_formulario() 'Lanzamos el userform UserForm1.Show End Sub

Ejemplo 2:

Para el caso de que deseemos crear un combobox con valores únicos (vamos a suponer que también cargamos las hojas que componen el libro, como primer combobox, y que los datos de cada hoja, se cargarán en el segundo combobox), lo que tendremos que hacer es añadir este código en el combobox2 (el código del combobox1 será el mismo que en el ejemplo 1 que acabamos de ver hace unos instantes):

Private Sub ComboBox2_Enter() 'En caso de error, que continúe On Error Resume Next 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Limpiamos lo que haya ComboBox2.Clear 'Pasamos el dato de la hoja, a una variable hoja_elegida = ComboBox1.List(ComboBox1.ListIndex) 'seleccionamos esa hoja Sheets(hoja_elegida).Select 'seleccionamos la cela A1 Range("A1").Select 'Llenamos el combo con los datos del combobox1 'para lo cual supondremos que los datos de cada 'hoja están a partir desde A1 hacia abajo, y 'hasta encontrar una fila vacía Do While Not IsEmpty(ActiveCell) 'si el dato no está repetido, lo añadimos 'a la variable "datos", separando los 'elementos por comas If InStr(datos, ActiveCell) = 0 Then 'añadimos el dato datos = datos & "," & ActiveCell End If 'bajamos una fila ActiveCell.Offset(1, 0).Select Loop 'eliminamos la primera coma datos = Right(datos, Len(datos) - 1) 'separamos cada elemento por la coma dato_individual = Split(datos, ",") 'recorremos todos los elementos For i = 0 To UBound(dato_individual) 'Añadimos los elementos ComboBox2.AddItem dato_individual(i) Next 'Volvemos a la hoja1 que es donde 'tenemos el botón para lanzar el userform Hoja1.Select 'Mostramos el procedimiento Application.ScreenUpdating = True End Sub

Si os fijáis bien, lo que hemos hecho en ese combobox2, es crear un array (o un vector), donde vamos añadiendo los valores que nos vamos encontrando en cada hoja de cálculo, siempre y cuando no estén ya en el array. Estos elementos los vamos separando por comas. Luego al final, lo que hacemos es separar los elementos del array nuevamente por ese carácter (la coma), para escribirlos en el combobox2.


Ejemplo 3:

Finalmente, vamos a ver como acceder a uno de los elementos del combobox dependiente. Es decir, vamos a acceder al elemento seleccionado del combobox2. Para que se entienda mejor, si hemos seleccionado un item (un elemento del combobox), que está en la hoja3, y en la celda A2, nos situaremos encima de ella, una vez pulsado el botón de aceptar que crearemos en el formulario, expresamente para tal fin.

Tanto el código del combobox1, como el del combobox2, serán los mismos que los que vimos en el ejemplo 1 anterior, así que nos ahorraremos el volverlos a poner aquí. La única diferencia que encontraremos entres aquel primer ejemplo y este tercer ejemplo, será que en este ejemplo de ahora, vamos a añadir un botón al userform (dejaremos el nombre que tiene por defecto, es decir, CommandButton1), y su código será el siguiente:

Private Sub CommandButton1_Click() 'En caso de error, que continúe On Error Resume Next 'leemos lo que nos devuelven los combobox hoja_elegida = ComboBox1.List(ComboBox1.ListIndex) dato_elegido = ComboBox2.List(ComboBox2.ListIndex) 'vamos a la hoja elegida Sheets(hoja_elegida).Select 'vamos a la celda con el valor elegido en el combobox2 Cells.Find(What:=dato_elegido).Activate 'Eliminamos el userform de la memoria Unload UserForm1 End Sub

Al pulsar sobre el botón "Aceptar", lo que estamos haciendo, es seleccionar el elemento del combobox1, es decir, la hoja seleccionada, y seleccionar también el elemento del combobox2. Luego buscará ese item o elemento del segundo combobox, en la hoja seleccionada en el combobox1, para situarnos sobre él. Una vez hecho todo eso, descargaremos el userform de memoria, para liberar recursos del sistema.


Desde aquí podéis descargar un fichero comprimido en formato zip, con los tres ejemplos que hemos visto en este artículo.