¿Cómo rellenar un ComboBox de UserForm con todos los nombres de hojas en Excel?

Este artículo trata sobre cómo rellenar todos los nombres de las hojas del libro actual en un cuadro combinado de UserForm en Excel.

Rellenar un ComboBox de UserForm con todos los nombres de hoja con código VBA

Rellenar un ComboBox de UserForm con todos los nombres de hoja con código VBA

El siguiente código VBA puede ayudarte a insertar todos los nombres de las hojas del libro actual en un cuadro combinado de UserForm. 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, por favor, inserta un UserForm haciendo clic en Insertar > UserForm como se muestra en la captura de pantalla a continuación.

3. Luego dibuja e inserta un control de cuadro combinado en el UserForm. Ver captura de pantalla:

4. Haz clic derecho en el cuadro combinado insertado y selecciona Ver Código desde el menú contextual. Ver captura de pantalla:

5. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, copia y pega el siguiente código VBA para reemplazar el original en la ventana de Código.

Código VBA: Rellenar un ComboBox de UserForm con todos los nombres de hoja del libro actual

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Nota: En el código, ComboBox1 es el nombre del cuadro combinado insertado. Por favor, cámbialo al que tengas.

6. Presiona la tecla F5 para ejecutar el código. En el UserForm que se abre, puedes ver que todos los nombres de las hojas del libro actual se muestran en el cuadro combinado 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 abrir una hoja de trabajo específica por el valor seleccionado de un cuadro combinado en Excel?
• ¿Cómo evitar o deshabilitar escribir en un cuadro combinado en Excel?
• ¿Cómo salir del cuadro combinado con tabulador para seleccionar una celda específica en Excel?