Excel Caixa de alerta/aviso no Excel - Microsoft Office

[Francisco Assis Xavier]

Estou precisando criar um Alerta no Windows para Vencimentos em uma Planilha do Excel e achei aqui uma postagem de vcs que poderia me ajudar mas é antiga e não tenho acesso.

 

Podem me ajudar..

 

Francisco

Denunciar post

 

 

#1  

Postado 17 de outubro de 2012

Gostaria de colocar uma caixa (janela) de alerta avisando, ao abrir o excel que uma conta venceu um dia antes da data de vencimento da mesma.

Alguem pode dar uma luz de como fazer isso?

Desde já, agradeço:D

Luis

[CasaDoHardware]

Cole em Esta Pasta de Trabalho

 

 

Private Sub Workbook_Open()

 

Dim W As Worksheet
Dim Linha As Long
Dim Coluna As Long

 

Set W = Sheets("Plan1") ' Troque pelo nome da sua planilha de contas
    Linha = 7 'Informe o numero da linha inicial onde inicia a sua planilha
    Coluna = 5 'Informe o numero da coluna onde esta a data de vencimento Coluna E = 5
    
    Do While W.Cells(Linha, Coluna).Value <> ""
    
    If W.Cells(Linha, Coluna).Value = Date + 1 Then

    MsgBox "Existem Contas Com Vencimento na Data de Amanha!!!", vbInformation, "Informação"
     Exit Do
    End If
    
    Linha = Linha + 1
   
    
    Loop

    
End Sub