Cambiar color de texto a blanco según el valor de una celda con fórmula.

Les consulto como hacer para que en un rango de celdas (G5:H10) cambie el formato de los números a blanco si el valor de la celda A1 es igual a 1. El valor de A1 es el resultado de una fórmula.

2 Respuestas

Respuesta
1

Usa esta macro pégala en el modulo de la hoja donde tengas la fórmula

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
    Range("g5:h10").Font.ColorIndex = 2
Else
    Range("g5:h10").Font.ColorIndex = 1
End If
end sub

en cuanto cambie la celda a 1 pondra el texto en blanco

Respuesta
1

Con esta macro pude cambiar el color

Sub CambiarColor()
Cells(5, 7).CurrentRegion.Select
    With Selection.Font
        If Cells(1, 1).Value = 1 Then
            .Color = vbWhite
            TintAndShade = 0
        Else
            .Color = vbBlack
            .TintAndShade = 0
        End If
    End With
    Range("A1").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas