Ir ao conteúdo
  • Cadastre-se
Francisco Assis Xavier

Excel Caixa de alerta/aviso no Excel - Microsoft Office

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×