About Me
Estatisticas
2007-03-20
9:40 da tarde | 
Publicada por
JRod - PORTUGAL
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
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:
