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 de Sebas Torres
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"
