Change Font Color

JTL9161

Active Member
Joined
Aug 29, 2012
Messages
340
I have a spreadsheet that is updated daily with about 1000 rows. I use different color fonts to breakout the dates through out the month. Each day some new rows of data are added and previous rows are updated. When the previous rows are updated they font color is automatic (black) yet the rest of the row is another color font based on the day of the month. I filter the column(s) that are updated to show just automatic fonts.

My question. What macro code can I add to my existing updating code that would go down the column (lets say column "C") to each cell with automatic font the look either at column "B" or "D" and change the data in column "C" to the same color as the adjacent column(s)? Or is this not doable?

Thank You,
James
 

Some videos you may like

Excel Facts

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.

DanteAmor

Well-known Member
Joined
Dec 3, 2018
Messages
12,542
Office Version
2007
Platform
Windows
Try the following, to change the font color of the column C according to column B

Code:
Sub test_color()
    Dim c As Range
    For Each c In Range("C2", Range("C" & Rows.Count).End(xlUp))
        c.Font.Color = c.Offset(, -1).Font.Color
    Next
End Sub
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,105,865
Messages
5,507,801
Members
408,647
Latest member
gazmoz17

This Week's Hot Topics

Top