¿Cómo hacer que el nombre del botón de comando sea dinámico en Excel?

Este artículo trata sobre cómo cambiar dinámicamente el nombre de un botón de comando cuando cambia el valor de una celda específica. Por ejemplo, cuando el valor de la celda A1 cambia a “prueba”, el nombre de un determinado botón de comando se cambiará automáticamente a “prueba”.

Hacer que el nombre del botón de comando sea dinámico con el valor de la celda mediante código VBA

Hacer que el nombre del botón de comando sea dinámico con el valor de la celda mediante código VBA

El siguiente código VBA puede ayudarte a hacer que el nombre de un botón de comando sea dinámico según el valor de una celda específica en una hoja de cálculo. Por favor, sigue los siguientes pasos.

1. Haz clic en Desarrollador > Insertar > Botón de Comando (Control ActiveX) para insertar un botón de comando en la hoja de cálculo. Ver captura de pantalla:

2. Después de insertar el botón de comando, haz clic derecho en la pestaña de la hoja y selecciona Ver Código desde el menú contextual como se muestra en la siguiente captura de pantalla:

3. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA en la ventana.

Código VBA: Hacer que el nombre del botón de comando sea dinámico con el valor de la celda

Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xShapeRg As ShapeRange
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Me.CommandButton1.Caption = Target.Text
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
        xStr = Target.Text
    End If
End Sub

Nota: en el código, CommandButton1 es el nombre del botón que deseas que tenga un nombre dinámico, y A1 es la celda de la cual se tomará el valor para asignarlo automáticamente al nombre del botón.

4. Presiona las teclas Alt + Q para salir de la ventana de Microsoft Visual Basic para Aplicaciones.

5. Desactiva el Modo Diseño haciendo clic en Desarrollador > Modo Diseño.

A partir de ahora, el nombre del Botón de Comando cambiará dinámicamente con el valor de la celda especificada en tu hoja de cálculo.

Como se muestra en la siguiente captura de pantalla, cuando el valor de la celda A1 cambia, el nombre del botón de comando cambiará automáticamente al mismo valor.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo usar el Botón de Comando para guardar la hoja de trabajo activa como archivo PDF en Excel?
• ¿Cómo insertar automáticamente una nueva fila en blanco con el Botón de Comando en Excel?