¿Cómo rellenar un cuadro de texto en función de la selección realizada en un cuadro combinado de un formulario de usuario en Excel?
Supongamos que dispone de una tabla con una columna de Nombre y otra de Número de personal, como se muestra en la siguiente captura de pantalla. Ahora necesita crear un formulario de usuario con un cuadro combinado que recopile todos los nombres y un cuadro de texto que muestre automáticamente el número de personal correspondiente al seleccionar un nombre en dicho cuadro combinado. El método descrito en este artículo le permitirá lograrlo con facilidad.
Rellenar un cuadro de texto según la selección del cuadro combinado en un formulario de usuario con VBA
Siga estos pasos para rellenar el cuadro de texto con el valor correspondiente a la selección realizada en el cuadro combinado del formulario de usuario.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Formulario de usuario. Vea la captura de pantalla:
3. A continuación, inserte un control de cuadro combinado y un control de cuadro de texto en el formulario de usuario que ha creado, tal como se muestra en la siguiente captura de pantalla.
4. Haga clic con el botón derecho en cualquier espacio en blanco del formulario de usuario y, a continuación, haga clic en Ver código en el menú contextual. Vea la captura de pantalla:
5. En la ventana abierta del Formulario de usuario (Código), copie y pegue el siguiente código VBA para reemplazar el original.
Código VBA: Rellenar un cuadro de texto según la selección del cuadro combinado en un formulario de usuario
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End SubNota: En el código, A2:B2 es el rango que contiene los valores que se rellenarán por separado tanto en el cuadro combinado como en el cuadro de texto del formulario de usuario, y Hoja5 es el nombre de la hoja de cálculo que contiene el rango de datos. Adáptelos según sus necesidades.
6. Pulse las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
7. Haga clic en Programador > Insertar > Botón de comando (Control ActiveX) para insertar un botón de comando en la hoja de cálculo.
8. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código en el menú contextual. A continuación, copie y pegue el código VBA en la ventana de código.
Código VBA: Mostrar formulario de usuario
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub9. Desactive el modo Diseño en su libro de trabajo.
Haga clic en el botón de comando para abrir el formulario de usuario especificado. Entonces verá que todos los nombres están recopilados en el cuadro combinado. Al seleccionar un nombre en dicho cuadro, el número de personal correspondiente se rellenará automáticamente en el cuadro de texto, tal como se muestra en la siguiente captura de pantalla.
Artículos relacionados:
- ¿Cómo rellenar un cuadro combinado con los datos especificados al abrir el libro de trabajo?
- ¿Cómo rellenar automáticamente otras celdas al seleccionar un valor en una lista desplegable de Excel?
- ¿Cómo rellenar automáticamente otras celdas al elegir un valor en una lista desplegable de Excel?
- ¿Cómo rellenar automáticamente los resultados de búsqueda de Google en una hoja de cálculo 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