About Me
Estatisticas
2006-05-16
6:38 da tarde | 
Publicada por
JRod - PORTUGAL
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
