About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2006-01-22
VBA: Colorir linhas em branco (II)
1:51 da manhã |
Publicada por
JRod - PORTUGAL |
Editar mensagem
O MVP em Excel,Kirill Lapin, também conhecido por KL, apresentou uma alternativa ao post anterior, que pela sua qualidade e simplicidade, passo a referir:
O Código:
Private Sub CommandButton2_Click()
Dim r As Long
For r = UsedRange.Rows.Count To 1 Step -1
If Range("A" & r) = "" And Range("H" & r) = "" Then _
Range("A:H").Rows(r).Interior.ColorIndex = 48
Next r
End Sub
O Código:
Private Sub CommandButton2_Click()
Dim r As Long
For r = UsedRange.Rows.Count To 1 Step -1
If Range("A" & r) = "" And Range("H" & r) = "" Then _
Range("A:H").Rows(r).Interior.ColorIndex = 48
Next r
End Sub