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-01-22
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