About Me
Estatisticas
2007-03-28
11:27 da tarde | 
Publicada por
JRod - PORTUGAL
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
