Change colour of some of a cell only (through formula)

[FrankieGTH]

Hello everyone,

Here is a screenshot of what I have.

I would like to make the brackets red or green, green if a person has gone up, red if a person has gone down (or black if no change). The only way I can of doing this is copy and pasting as values, then manually colouring in each one.

Is there a way of achieving this through formula or VBA? I have several tables to do, hence the requirement to automate the process.

Kind Regards

 

[DanteAmor]

Try this:

Sub Ranks()
  Dim i As Long, ini As Long
  Dim c As Range
  
  Range("A:A").Font.Color = vbBlack
  For Each c In Range("C2", Range("C" & Rows.Count).End(3))
    With Range("A" & c.Row)
      .Value = c & " (" & c.Offset(, 1) - c & ")"
      ini = Len(c) + 2
      If c < c.Offset(, 1) Then .Characters(ini, 9).Font.Color = -6112221
      If c > c.Offset(, 1) Then .Characters(ini, 9).Font.Color = vbRed
    End With
  Next
End Sub

 

[FrankieGTH]

Brilliant! Thank you!

 

[DanteAmor]

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