¿Cómo copiar el valor del Cuadro Combinado a la celda activa en Excel?

En algunos casos, es posible que necesite copiar el valor seleccionado de un Cuadro Combinado a la celda activa. Normalmente, tendría que entrar al Cuadro Combinado, copiar y pegar manualmente en la celda activa. Este artículo presenta un método conveniente para actualizar automáticamente la celda activa mientras selecciona valores en un Cuadro Combinado.

Copiar el valor del Cuadro Combinado a la celda activa con código VBA

VBA 1: Copiar el valor del cuadro combinado a la celda activa mediante un botón de comando
VBA 2: Copia automática del valor del cuadro combinado a la celda activa

Copiar el valor del Cuadro Combinado a la celda activa con código VBA

El siguiente código VBA puede ayudarlo a copiar automáticamente el valor del cuadro combinado a la celda activa. Por favor, siga los siguientes pasos.

VBA 1: Copiar el valor del cuadro combinado a la celda activa mediante un Botón de Comando

1. Primero, necesita insertar un Botón de Comando en la hoja de trabajo como se muestra en la captura de pantalla a continuación.

2. Haga clic derecho en el botón de comando, luego haga clic en Ver Código en el menú contextual. Consulte la captura de pantalla:

3. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, reemplace el código original en la ventana de Código con el siguiente código VBA.

Código VBA: Copiar el valor del Cuadro Combinado a la celda activa

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Nota: En el código, CommandButton1 es el nombre del botón de comando insertado, y ComboBox1 es el nombre del Cuadro Combinado del cual copiará el valor. Cambie estos nombres según sea necesario.

4. Presione las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, cuando necesite copiar el valor del cuadro combinado a la celda activa, simplemente seleccione la celda y luego haga clic en el Botón de Comando para completar la tarea.

VBA 2: Copia automática del valor del cuadro combinado a la celda activa

El siguiente código VBA puede ayudarlo a actualizar automáticamente la celda activa mientras selecciona valores en un Cuadro Combinado. Puede hacer lo siguiente.

1. Asegúrese de que el Modo Diseño esté activado bajo la pestaña Desarrollador.

2. Haga clic derecho en el Cuadro Combinado del cual copiará el valor, luego haga clic en Ver Código en el menú contextual. Consulte la captura de pantalla:

3. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, reemplace el código original en la ventana de Código con el siguiente código VBA.

Código VBA: Copiar el valor del Cuadro Combinado a la celda activa

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Nota: En el código, ComboBox1 es el nombre del Cuadro Combinado del cual copiará el valor.

4. Presione las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones y desactive el Modo Diseño bajo la pestaña Desarrollador.

A partir de ahora, al seleccionar un valor del Cuadro Combinado, este registro seleccionado se mostrará automáticamente en la celda activa.

Artículos relacionados:

• ¿Cómo mostrar el formato de fecha en la salida del cuadro combinado en Excel?
• ¿Cómo ocultar o mostrar un Botón de Comando basado en el valor de una celda específica 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 la escritura en un cuadro combinado en Excel?
• ¿Cómo salir del cuadro combinado con tabulador para seleccionar una celda específica en Excel?