About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-05-16
Se pretendermos verificar em determinado Range se uma célula de uma coluna tem no seu conteúdo, por exemplo, o texto "REPARADO" e, em caso afirmativo, marcar toda a linha desse Range com um fundo colorido (no exemplo, o verde):






e, se, ao apagarmos o texto da célula, a cor da linha também venha a ser desfeita, como no exemplo:






Então podemos utilizar o seguinte Código:

Private Sub CommandButton1_Click()
    Dim r As Long
    For r = UsedRange.Rows.Count To 1 Step -1
        If Range("G" & r) = "REPARADO" Then _
           Range("A:J").Rows(r).Interior.ColorIndex = 10
    Next r

    For r = UsedRange.Rows.Count To 1 Step -1
        If Range("G" & r) = "" Then _
           Range("A:J").Rows(r).Interior.ColorIndex = 2
    Next r

End Sub