VBA Excel: Realizando loops no intervalo nomeado

Não raro nomeamos um intervalo (range) de dados para a manipulação mais precisa deste, também podemos fazê-lo para cuidar de certos aspectos de formatação. Abaixo temos um código que faz um loop através de cada célula do intervalo nomeado usando um loop For Each...Next. Se o valor de qualquer célula do intervalo exceder o valor da constante  Limit, a cor da célula será alterada para amarelo.


Sub ApplyColor()
    Const Limit As Integer = 25

    For Each c In Range ("MyRngBernardes")
        If c.Value > Limit Then
            Let c.Interior.ColorIndex = 27
        End If
    Next c
End Sub


Código funcional e prático para montar semáforos em uma planilha de dados que aponta resultados.

Tags: Bernardes, VBA, Office, Excel, color, range, intervalo, loop

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com