Cambiar color a una casilla con dependencia de un checkbox

Tengo 3 checkbox en una hoja de calcula, cada uno con un nombre de color diferente, es decir, rojo, verde y azul. Como puedo hacer para que cuando seleccione un checkbox, por ejemplo, el que tiene el nombre de "Verde", ¿cambie la celda a ese color mientras le doy click a cada celda y así sucesivamente con los demás colores?

1 respuesta

Respuesta

Coloca 3 checkbox en tu hoja y pega la siguiente macro dentro del modulo de hoja que estes usando

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    CheckBox2.Value = False
    CheckBox3.Value = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
    CheckBox1.Value = False
    CheckBox3.Value = False
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
    CheckBox1.Value = False
    CheckBox2.Value = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CheckBox1.Value = True Then
    '''''AZUL
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
ElseIf CheckBox2.Value = True Then
    '''''ROJO
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
ElseIf CheckBox3.Value = True Then
    ''''VERDE
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

Recuerda cambiar los nombres de los checkbox por los tuyos o dejarlos por defecto para que sea mas facil " CheckBox1,CheckBox2, CheckBox3"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas