Change Font Color

[JTL9161]

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

 

[DanteAmor]

Try the following, to change the font color of the column C according to column B

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

 

[JTL9161]

Perfect, Thank you.

 

[DanteAmor]

Perfect, Thank you.

I'm glad to help you. Thanks for the feedback.