Color cells given in list VBA Range

[sunitarobert]

Hi,

Can you please help me to color cells in given list.

Column A has criteria, Column B has worksheet name, column C has cell ranges
ColumnA. COLUMNB ColumnC
Condition 1. Sheet3. A2:A3
Condition 1. Sheet4 B6

If condition 1 Red colour condition2 yellow colour etc.

 

[davesexcel]

Sub My_Condition()
    Dim sh As Worksheet, rng As Range, c As Range, ws As Worksheet
    Dim x
    
    Set sh = ActiveSheet

    With sh
        Set rng = .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        For Each c In rng.Cells
            x = IIf(c = "Condition 1", vbRed, IIf(c = "Condition 2", vbYellow, IIf(c = "Condition 3", vbBlue, xlNone)))
            Sheets(c.Offset(, 1).Value).Range(c.Offset(, 2).Value).Interior.Color = x
        Next c
    End With
End Sub

 

[sunitarobert]

Sub My_Condition()
    Dim sh As Worksheet, rng As Range, c As Range, ws As Worksheet
    Dim x
   
    Set sh = ActiveSheet

    With sh
        Set rng = .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        For Each c In rng.Cells
            x = IIf(c = "Condition 1", vbRed, IIf(c = "Condition 2", vbYellow, IIf(c = "Condition 3", vbBlue, xlNone)))
            Sheets(c.Offset(, 1).Value).Range(c.Offset(, 2).Value).Interior.Color = x
        Next c
    End With
End Sub

Thanks a lot working as expected