RESOLVIDO !
a única coisa que tive que mudar foi a formatação condicional que vc fez para marcar no calendário a data de hoje.
deixei sem preenchimento de cor de fundo, e fiz uma moldura com fonte bold em vermelho.
tive que fazer isso, pois a cor do fundo é justamente o gatilho que dispara o alerta.
o VBA ficou assim, mas a planilha com ele segue no anexo.
Private Sub Workbook_Open()
zHoje = Range("geral!c1").Value
Sheets("Calendário " & Year(zHoje)).Select
Range("b2:v34").Select
Selection.Find(What:=zHoje, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
If ActiveCell.Interior.Color <> 16777215 Then
zHoje = MsgBox("ATIVIDADE AGENDADA PARA HOJE.", vbExclamation, "ALERTA !")
End If
End Sub
se gostou, clica na mãozinha ali no canto superior direito deste quadro.
qq coisa, pergunta.
[]s
Postado : 03/09/2012 12:30 pm