Change font color automatically

[bassls]

I have inherited a huge ss that has different rows layered using different fonts, italics and bold. For example, a level 1 item is bold/no italic, level 2 is bold/italic, level 3 is regular/no ital, and level 4 is regular/italic. I want to change these levels to different colors so they are easier to see (old eyes ). The font style does not need to change, only the color. For example, would leave level 1 black but make level 2 red, level 3 blue, etc. Something like : IF font = bold, italic THEN font = red.

B

 

[TiaXL]

I have inherited a huge ss that has different rows layered using different fonts, italics and bold. For example, a level 1 item is bold/no italic, level 2 is bold/italic, level 3 is regular/no ital, and level 4 is regular/italic. I want to change these levels to different colors so they are easier to see (old eyes ). The font style does not need to change, only the color. For example, would leave level 1 black but make level 2 red, level 3 blue, etc. Something like : IF font = bold, italic THEN font = red.

B

like this

Sub loopy()
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Font.Italic = True Then
    Selection.Interior.ColorIndex = 4
End If
If ActiveCell.Font.Bold = True Then
    Selection.Interior.ColorIndex = 3
End If
Loop Until IsEmpty(ActiveCell.Offset(1, 0)) = True
 
End Sub

obviously you will have to build on it as I havent got time to write the proper code, but this is basically what you want to do.

 

[Trevor G]

Has this got Conditional Formatting applied?

If using 2003 then look at Format Menu > Conditional Formatting.

If using 2007 or higher then Home Tab > Conditional Formatting > Rules

 

[bassls]

so if the cell is bold and italic the code would be;

If ActiveCell.Font.Bold.Italic = True Then
Selection.Interior.ColorIndex = 4


I am wanting to change the font color, not the cell color.

 

[TiaXL]

so if the cell is bold and italic the code would be;

If ActiveCell.Font.Bold.Italic = True Then
Selection.Interior.ColorIndex = 4


I am wanting to change the font color, not the cell color.

No it would be like

if activecell.font.italic = true and activecell.font.bold = true then
selection.font.colorindex = 4
endif


4 is just a dummy by the way, I dont know what the color reference is for the colour you want but just record yourself changing the colour in a cell to find out

 

[bassls]

Thank you so much. The folks on this site are always the best. The code works fine, i made a tweak to change the font color instead of the cell color.

Sub loopy()
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Font.Italic = True Then
Selection.Font.ColorIndex = 4
End If
If ActiveCell.Font.Bold = True Then
Selection.Font.ColorIndex = 3
End If
If ActiveCell.Font.Italic = True And ActiveCell.Font.Bold = True Then
Selection.Font.ColorIndex = 5

End If
Loop Until IsEmpty(ActiveCell.Offset(1, 0)) = True

End Sub

Thanks again, B.