VBA Code - conditional formatting

Closed
SridharK - 16 Jul 2018 à 23:29
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 19 Jul 2018 à 11:25
Hello,

in VBA, I want to do conditional formatting of cells in a column with below background & font colours.

Below 25: (RED Background-RGB-255-199-206) (Font-RGB-156-0-6)

25 to 35: (Yellow background-RGB-255-235-156) (Font-RGB-156-101-0)

>35: (Green background-RGB-198-239-206) (Font-RGB-0-97-0)

They want only these particular colour shades.

Please help.

SK
Related:

2 responses

TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 555
17 Jul 2018 à 11:32
Hi SridharK,

Why use VBA for this, but if you "must", then use the macro recorder to see how it is done.

Best regards,
Trowa
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 555
19 Jul 2018 à 11:25
Hi SK,

It seems that the macro recorder doesn't record much in this case.

Give this code a try:
Sub RunMe()
For Each cell In Range("A:A")
    If cell.Value <> vbNullString Then
        Select Case cell.Value
            Case Is < 25
                cell.Interior.Color = 13551615
                cell.Font.Color = -16383844
            Case 26 To 35
                cell.Interior.Color = 10284031
                cell.Font.Color = -16751204
            Case Is > 35
                cell.Interior.Color = 13561798
                cell.Font.Color = -16752384
        End Select
    End If
Next cell
End Sub 


Best regards,
Trowa