About Me

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

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2007-03-20

Se pretendermos, ao abrir um workbook, que a célula (resultado da diferença entre duas datas) que contenha um resultado igual ou superior a x dias (no exemplo, 27) apresente uma coloração ( no exemplo, azul) e um comentário, que desaparecerão (coloração e comentário) se a diferença for inferior,  como no exemplo:

 

 

podemos utilizar o seguinte Código:
 
Private Sub Workbook_Open()
    Dim r As Long
    Dim temp As String

    temp = "Atenção!!! Já passaram mais do que 27 dias sobre o início da baixa!"


    For r = Range("C1:C10").Count To 1 Step -1
        Range("C" & r).ClearComments

        If Range("C" & r) > 26 Then
            Range("C" & r).Interior.ColorIndex = 5
            Range("C" & r).AddComment
            Range("C" & r).Comment.Text Text:=temp
            Range("C" & r).Comment.Visible = True
        Else
            Range("C" & r).Interior.ColorIndex = xlNone
            Range("C" & r).ClearComments
        End If
    Next r

End Sub

 

NOTA: O Código deve ser inserido no próprio workbook: