Forum Discussion

KayleeBG's avatar
KayleeBG
Copper Contributor
Oct 27, 2023

Conditional Formatting Row by Row

Good morning! I am working on a project for my office and need some assistance to make the project easier to update and less bulky now. We have several (about 4000) rows of data separated into 4 ta...
Excel on Mac
Formulas and Functions
gaps96's avatar
gaps96
Copper Contributor
Jun 13, 2024

KayleeBG 

Sub Macro1()
'
' Macro1 Macro
'

'
For i = YOUR_FIRST_ROW To YOUR_LAST_ROW
    ' In my case B and O are the first and last columns
    ' The colors are white for lowest, green for highest value
    x = "B" & Trim(Str(i)) & ":" & "O" & Trim(Str(i))
    Range(x).Select
    Selection.FormatConditions.AddColorScale ColorScaleType:=2
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 16776444
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValueHighestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
Next i

End Sub

Resources