¿Cómo rellenar un cuadro combinado con datos específicos al abrir el Libro de Trabajo?

Normalmente, puedes llenar un cuadro combinado (Control ActiveX) con un rango específico de datos de celda ingresando las referencias de celda en el campo ListFillRange de las propiedades del cuadro combinado. Si deseas rellenar un cuadro combinado con datos específicos directamente, sin ajustar manualmente sus propiedades, el método descrito en este artículo puede ayudarte.

Rellenar un cuadro combinado con datos específicos mediante código VBA

Rellenar un cuadro combinado con datos específicos mediante código VBA

Este método te permite rellenar un cuadro combinado con datos específicos directamente al abrir el libro de trabajo. Por favor, sigue los siguientes pasos.

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisWorkbook en el panel izquierdo para abrir el editor de código de ThisWorkbook. Luego copia el siguiente código VBA en él. Ver captura de pantalla:

Código VBA: rellena un cuadro combinado con datos específicos al abrir el libro de trabajo

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
    With Sheet1.ComboBox1
        .Clear
        .AddItem "Select a Fruit"
        .AddItem "Apple"
        .AddItem "Banana"
        .AddItem "Peach"
        .AddItem "Pineapple"
        .AddItem "Watermelon"
        .Text = .List(0)
    End With
End Sub

Notas:

3. Guarda el libro en formato Libro de Excel Habilitado para Macros y ciérralo.

4. Al volver a abrir el libro, verás que el cuadro combinado se ha rellenado con los datos especificados, como se muestra en la siguiente captura de pantalla:

Artículos relacionados:

• ¿Cómo copiar el valor del Cuadro Combinado a la celda activa en Excel?
• ¿Cómo mostrar el formato de fecha en la salida del cuadro combinado en Excel?
• ¿Cómo evitar o deshabilitar la escritura en un cuadro combinado en Excel?
• ¿Cómo rellenar un Cuadro Combinado con datos de un Rango Nombrado en Excel?