Formularios dinámicos

Ya hemos visto en otros artículos de este blog, cómo generar llenar dinámicamente un combobox. La cosa es muy sencilla, pues nos bastaba con determinar por ejemplo, un rango de celdas contiguo, que será el que tomaremos como conjunto de datos para llenar el combobox. Tan sencillo como eso. Lo único "complicado" es saber como se "escribe" eso en un macro, si no lo has hecho o no lo has visto nunca. Una vez le pillas el truquillo, los combobox dejan de tener secreto, y se convierten en algo bastante sencillo con lo que trabajar.

Ahora vamos a ver como mostrar diferentes controles en un formulario, dependiendo de una o varias condiciones. Cuando me refiero a controles, me refiero a mostrar etiquetas (label), combobox, o cualquier otro elemento que suele utilizarse en un formulario. Nosotros emplearemos 2 etiquetas (2 labels), 1 combobox, y 1 botón para cerrar el formulario.

Quizás os estéis preguntando ¿pero no es más fácil hacer varios formularios y lanzar uno u otro, dependiendo de si se cumple una u otra condición?. Es probable que así sea, pero ¿por qué no aprender a hacerlo todo en un único formulario?. Si lo hacemos con un único formulario, veremos la utilidad de hacer visible o invisible un control, dependiendo de si se cumple una condición u otra.

Vamos a trabajar con un ejemplo, para lo cual evaluaremos si se cumple una condición, y mostraremos la label1 en el caso de que se produzca esa condición, y la label2 y el combobox (le dejaremos el nombre que tiene por defecto, combobox1) en el caso de que no se produzca esa condición. Por concretarlo más, vamos a habilitar la celda C4 para que el usuario introduzca una fecha, que será el dato que evaluaremos (aunque puede ser cualquier otra condición, por supuesto). Si la fecha introducida corresponde al mes de agosto, mostraremos la label1, y si es cualquier otro mes del año, mostraremos la label2 y el combobox1.

Para empezar, diseñaremos el formulario, y colocaremos las 2 etiquetas, eliminando el texto que presentan por defecto, y que es el nombre de la propia etiqueta. En la siguiente imagen os he remarcado las 2 etiquetas para que se vean bien (ambas están vacías, sin texto, y tienen forma rectangular):



Si seleccionamos una de ellas, nos fijaremos en el nombre que tiene (en este caso, hemos seleccionado la etiqueta más pequeña, que es la label2):



Una vez creadas las etiquetas y el botón del formulario, crearemos también el combobox, para que nos quede algo como esto (he remarcado las etiquetas porque como se solapan, no se verían):



Crearemos también un botón en la hoja de cálculo (aparte del otro botón para cerrar el Userform), y le asociaremos este macro, que lanzará el Userform:

Sub formulario_dinamico() 'cargamos el formulario UserForm1.Show End Sub

Ahora copiaremos estos dos códigos que os incluyo a continuación, en el Userform. El primero de ellos, es el código asociado al botón del formulario, y cierra el mismo (el Userform), liberándolo de la memoria:

Private Sub CommandButton1_Click() 'Eliminamos el userform de la memoria Unload UserForm1 End Sub

Este otro código lo que hace es cargar las label1, label2 y combobox1, en función de si se cumple la condición de que en la celda C4 figure o no, un día del mes de agosto:

Private Sub UserForm_Activate() 'ocultamos el procedimiento Application.ScreenUpdating = False 'cargamos los objetos del formulario 'dependiendo de la fecha de la celda C4, 'para lo cual pasamos ese dato a una variable fecha = Range("C4") mes = Month(fecha) 'si la fecha es cualquier día de agosto (de cualquier año) 'entonces mostraremos un texto (un label) If mes = 8 Then 'Mostramos el texto en el label1 Label1 = "En teoría en agosto, casi todo el mundo se cogerá unos" + Chr(13) & _ "días de vacaciones, y se irá a la playa a tomar el sol, a" + Chr(13) & _ "tomarse una cervecita, y a ""tapear""." & _ Chr(13) + Chr(13) & "¿Me puedes decir qué haces tú trabajando?." 'ocultamos la label2 y el combobox Label2.Visible = False ComboBox1.Visible = False Else 'en caso contrario, es decir, si la fecha no es un 'día del mes de agosto, entonces ocultamos la label1 Label1.Visible = False 'mostramos el texto en el label2 Label2 = "Selecciona una opción:" 'llenamos el combobox con los datos del rango 'que hay en la hoja2 (bajando desde A1, hasta donde haya datos) 'pero antes lo limpiamos ComboBox1.Clear 'seleccionamos la hoja1, y la celda A1 Hoja2.Select Range("A1").Select 'llenamos el combobox Do While ActiveCell <> Empty 'ponemos un item el el combobox ComboBox1.AddItem ActiveCell.Value 'nos desplazamos hacia abajo ActiveCell.Offset(1, 0).Select Loop 'continuamos con el bucle 'Volvemos a la hoja1 Hoja1.Select End If 'mostramos el procedimiento Application.ScreenUpdating = True End Sub

No hace falta que comente nada respecto a este último código, que es algo más extenso, porque el propio código fuente está comentado.

Desde aquí podéis descargar el fichero, con el ejemplo que hemos visto en este artículo.