Excel Forum

Code: Select all

For i = 7 To 17 Step 1

        If Cells(i, 7) = "RB" Then
            Worksheets("test").Cells(i, 7).Select  
                With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .ThemeColor = xlThemeColorAccent3
                        .TintAndShade = 0.599993896298105
                        .PatternTintAndShade = 0
                    End With
        ElseIf Cells(i, 7) = "SE" Then
            Worksheets("test").Cells(i, 7).Select
                    With Selection.Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = 10092543
                            .TintAndShade = 0
                            .PatternTintAndShade = 0
                        End With
        ElseIf Cells(i, 7) = "PK" Then
            Worksheets("test").Cells(i, 7).Select
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
        End If

Next i

Code: Select all

Sub Test()
    Dim r As Range
    For Each r In Range("G7:G17")
        Select Case r
            Case "SE"
                r.Offset(0, -6).Resize(1, 10).Interior.Color = vbYellow
            Case "RB"
                r.Offset(0, -6).Resize(1, 10).Interior.Color = vbGreen
        End Select
    Next r
End Sub