Ejemplo de adición y eliminación de elementos de un Combobox

El control del ComboBox se usa para añadir elementos al cuadro de combinaciones y para que el usuario pueda elegir entre ellas. Dependiendo del valor (si está activo o no) se realiza una acción u otra.

Ejemplo: Un ejemplo que involucre la adición y eliminación de elementos seria en una situación en la que un cine tiene que poner en su cartelera las películas de la semana. Los títulos de las películas van cambiando cada semana por ello creamos el siguiente procedimiento en un formulario:

Private Sub UserForm_Activate()
ult = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ult
ComboBox1.AddItem (Cells(i, 1))
Next
End Sub

Private Sub CommandButton1_Click()
TextBox1.Text = ComboBox1.Value
End Sub

Este código permite que cuando se agregan o se quitan películas en la hoja excel, inmediatamente  se añade o se elimina del cuadro de combinaciones. Como se muestra:

ANTES:

DESPUÉS: (Se ha eliminado una película y se ha puesto otra)

 

Elaborado por: Juan Carlos Castillo