VBA Code - conditional formatting

Closed
SridharK - Updated on Aug 2, 2018 at 11:20 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jul 19, 2018 at 11:25 AM
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 September 12, 2010 Status Moderator Last seen December 27, 2022 555
Jul 17, 2018 at 11:32 AM
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
0
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 555
Jul 19, 2018 at 11:25 AM
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
0