¿Cómo rellenar un cuadro combinado con datos procedentes de un rango con nombre en Excel?
Puede rellenar un cuadro combinado (control ActiveX) con los datos de un rango específico asignando dicho rango a la propiedad ListFillRange del control. Pero, ¿sabe cómo vincular un cuadro combinado a un rango con nombre en Excel? Por ejemplo, ha definido un nombre para un rango de celdas en su hoja de cálculo y ahora desea asociar ese nombre a un cuadro combinado. Al seleccionar dicho nombre en el primer cuadro combinado, todos los valores del rango con nombre correspondiente se cargarán automáticamente en otro cuadro combinado. Este artículo presenta un método VBA para lograrlo.
Rellenar un cuadro combinado con datos de un rango con nombre mediante código VBA
Rellenar un cuadro combinado con datos de un rango con nombre mediante código VBA
Siga estos sencillos pasos para rellenar un cuadro combinado con datos procedentes de un rango con nombre en Excel.
1. Seleccione todas las cabeceras (en este caso, A1:E1) en su hoja de cálculo y, a continuación, escriba un nombre en el cuadro Nombre, como muestra la siguiente captura de pantalla.
2. Seleccione los datos de cada columna, excluyendo su cabecera, y a continuación asigne un nombre independiente a cada una en el cuadro Nombre. Vea la captura de pantalla:
En este caso, he asignado los nombres Fecha, Tienda, Artículos, Ventas y Día de la semana a los rangos A2:A8, B2:B8, C2:C8, D2:D8 y E2:E8, respectivamente.
3. A continuación, inserte un cuadro combinado haciendo clic en Programador > Insertar > Cuadro combinado (control ActiveX). Vea la captura de pantalla:
4. Repita el paso 3 para insertar otro cuadro combinado en la hoja de cálculo.
5. Haga clic con el botón derecho en la pestaña de la hoja y, a continuación, haga clic en Ver código en el menú contextual. Vea la captura de pantalla:
6. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, copie y pegue el siguiente código VBA en la ventana de código.
Código VBA: Rellenar un cuadro combinado con datos de un rango con nombre
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End SubNota: En el código, ComboBox1 es el nombre del cuadro combinado donde se mostrarán todos los nombres de celda, y ComboBox2 es el nombre del cuadro combinado que se rellenará con los datos del rango con nombre especificado. «Headers» es el nombre de celda que creó en el paso 1.
7. Desactive el modo Diseño haciendo clic en Programador > Modo Diseño.
8. Haga clic en cualquier celda de la hoja de cálculo para activar el código. Al pulsar la flecha del primer cuadro combinado, verá todos los rangos con nombre listados. Consulte la captura de pantalla:
Al seleccionar un rango con nombre en el primer cuadro combinado, los datos correspondientes de las celdas se rellenarán en el segundo cuadro combinado, tal como se muestra en la siguiente captura de pantalla:
Cree fácilmente Lista desplegable con casillas de verificación en Excel:
La utilidad Agregar casillas de verificación a la lista desplegable de Kutools para Excel le permite crear fácilmente una lista desplegable con casillas de verificación en un rango limitado, en la hoja de trabajo actual, en el libro de trabajo actual o en todos los libros abiertos, según sus necesidades.
¡Descárguela y pruébela ahora! (prueba gratuita de 30 días)
Artículos relacionados:
- ¿Cómo copiar el valor seleccionado en un 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 impedir o deshabilitar la escritura en un cuadro combinado de Excel?
- ¿Cómo rellenar un cuadro combinado con datos específicos al abrir el libro en Excel?
- ¿Cómo rellenar automáticamente otras celdas al seleccionar un valor en una lista desplegable de Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos