Change Font Color According To Another Cell's Font Color

[richard blaine]

For instance: the font color of B1 is determined by the font color of A1; if A1 is red, then B1 will be red.

Thanks

 

[NBVC]

What caused the A1 to be red?

Perhaps you can apply the same condition to B1?

 

[richard blaine]

>What caused the A1 to be red? Perhaps you can apply the same condition to B1?

No expressed condition -- A1 was manually changed

 

[NBVC]

Excel, itself, does not allow for conditional formatting based on font color, type or size of another cell. They are based on contents (strings, numerical, etc.)

You will need a macro.

Hopefully, someone out there can offer help as they will surely come up with a simple solution for you.

 

[Oorang]

As far as I know this can only be done with VBA. Here is one potential approach. But I'm thinking it would probablly be easier to just format the cells.

Option Explicit
Sub MatchFont()
Dim RNG As Range
On Error Resume Next
Set RNG = Application.InputBox("Use your mouse to select range of cells whose fonts you wish to match.", "My Font Thingy", , , , , 8)
If Err.Number <> 0 Then
    End
    Else
    Selection.Font.ColorIndex = Range(RNG.Address).Font.ColorIndex
    Selection.Font.FontStyle = Range(RNG.Address).Font.FontStyle
    Selection.Font.Underline = Range(RNG.Address).Font.Underline
    Selection.Font.Name = Range(RNG.Address).Font.Name
    Selection.Interior.ColorIndex = Range(RNG.Address).Interior.ColorIndex
    Selection.HorizontalAlignment = Range(RNG.Address).HorizontalAlignment
    Selection.VerticalAlignment = Range(RNG.Address).VerticalAlignment
    Selection.WrapText = Range(RNG.Address).WrapText
    Selection.Orientation = Range(RNG.Address).Orientation
    Selection.ShrinkToFit = Range(RNG.Address).ShrinkToFit
    End If
End Sub