Tengo como CommandButton en un userform y quiero que se pinte de color el que seleccione

Buen día amigos

Tengo como CommandButton en un userform y quiero que se pinte de color el que seleccione, al que pulse que se pinte de color verde, pueden ayudarme

1 respuesta

Respuesta
1

Si quieres que el botón se pinte de color cuando le das click, entonces pone esta macro en tu formulario.

Private Sub CommandButton1_Click()
'Por.Dante Amor
    CommandButton1.BackColor = &HFF00&
End Sub

¿Te cuento que ocupo tengo como 20 commandbutton en un userform y quiero que me avise cual commandbuttoon oprimí pintándose de color si me entiendes más o menos como?


                    

Disculpa pero no entiendo, la instrucción que te puse hace lo que pides, si presionas el commandbutton1, ese control se pinta de verde.

Prueba lo siguiente:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    PintarBotones "CommandButton1"
End Sub
Private Sub CommandButton2_Click()
    PintarBotones "CommandButton2"
End Sub
Private Sub CommandButton3_Click()
    PintarBotones "CommandButton3"
End Sub
Sub PintarBotones(b)
'Por.Dante Amor
    For Each boton In Controls
        If TypeName(boton) = "CommandButton" Then
            If boton.Name = b Then
                boton.BackColor = &HFF00&
            Else
                boton.BackColor = &H8000000F
            End If
        End If
    Next
End Sub

Lo que hace la macro es pintar todos los botones de gris, excepto el botón que presionas, ese botón lo pintará de verde, pero tienes que poner esta instrucción en los 20 botones

PintarBotones "CommandButton1"

Revisa que estoy poniendo como parámetro el nombre del botón entre comillas "CommandButton1", para el botón2 deberás poner el nombre del botón2:

PintarBotones "CommandButton2"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas