VBA Format cells in selection differently based on cell content

[OVH]

Super users,

I am new to vba and I can't really decipher what I've found online. Basically what I want to do is select a range (or entire sheet) and run a macro that will format each cell individually based on cell contents.

So basically if a cell contains an "X" then format as blue font, if it contains a "Y" then format as green font, etc. for about 5 variables.

My current if statements just format all of the cells in the range exactly the same.

Thank you in advance!

 

[Momentman]

This is an example. You could use if statements or select case statements

Sub formatrange()

Dim rn As Range


For Each rn In Selection
    If rn.Value = "X" Then
        rn.Font.Color = -4165632 'blue colour
    ElseIf rn.Value = "Y" Then
        rn.Font.Color = -16711681 'yellow colour
    End If
Next rn
    
    
End Sub

 

[Rick Rothstein]

Give this a try (change the "Value_1", "Value_2",... to the actual text in the cells that you want to test for and change the ColorIndex values as well)...

Sub ColorCells()
  Dim Cell As Range
  For Each Cell In Selection
    Select Case Cell.Value
      Case "Value_1"
        Cell.Interior.ColorIndex = 3
      Case "Value_2"
        Cell.Interior.ColorIndex = 4
      Case "Value_3"
        Cell.Interior.ColorIndex = 5
      Case "Value_4"
        Cell.Interior.ColorIndex = 6
      Case "Value_5"
        Cell.Interior.ColorIndex = 7
    End Select
  Next
End Sub