Macro RSA_ColorAlig

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Rsa_ColorAlig()

For i = 3 To 155
    For j = 1 To 52

        If (IsEmpty(Sheets("all sc Rel.").Cells(i, j)) Or (Sheets("all sc Rel.").Cells(i, j) Like ".")) Then
            k = 1 'black
            ElseIf Sheets("all sc Rel.").Cells(i, j).Value < 10 Then
                k = 37 'yellow
                ElseIf Sheets("all sc Rel.").Cells(i, j).Value < 25 Then
                    k = 38 'yellow-green
                    ElseIf Sheets("all sc Rel.").Cells(i, j).Value < 50 Then
                        k = 39 'green
                        ElseIf Sheets("all sc Rel.").Cells(i, j).Value < 75 Then
                            k = 40 'green-blue
                            ElseIf Sheets("all sc Rel.").Cells(i, j).Value < 90 Then
                                k = 41 'cyan
                                Else
                                    k = 42 'blue
        End If

        Sheets("Alig").Cells(j, i).Select
        With Selection.Interior
            .ColorIndex = k
            .Pattern = xlSolid
        End With

    Next j
Next i

End Sub