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-28

Uma pequena adaptação ao post anterior para mostrar como é que se pode apresentar, no comentário, quantos dias já passaram sobre determinada data (cfr. exemplo):

 

 

O Código, adaptado:

 

Private Sub Workbook_Open()
    Dim r As Long
    Dim temp, temp1 As String

    temp = "Atenção!!! Já passaram "

    temp1 = " 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) & temp1
            Range("C" & r).Comment.Visible = True
        Else
            Range("C" & r).Interior.ColorIndex = xlNone
            Range("C" & r).ClearComments
        End If
    Next r

End Sub