none
Box com aviso de data vencida RRS feed

  • Pergunta

  • Boa tarde Pessoal!!

    Estou tentando criar uma mensagem de aviso que me retorne, em pop up, quais os documentos da minha planilha estão vencidos, tomando como base a coluna "E" que possui a data de vencimento dos documentos.

    A ideia seria procurar na coluna "E" todos as datas que são maiores que "HOJE" e retornar toda a "LINHA" em uma MsgBox.

    Tentei criar um código VBA para isso, mas como sou inexperiente com esse tipo de trabalho não consegui.

    Ele fica me retornando o "Erro em tempo de execução '424' O objeto é obrigatório" e não sei como resolver

    Será que alguém poderia me ajudar?

    Private Sub Workbook_Open()
    With wsDocumentação
    If .Sheet(Documentação, "E") > Date Then
    MsgBox Text, vbInformation, "Atenção"
    End If
    End With
    End Sub


    • Editado ThiagoCFB segunda-feira, 17 de outubro de 2016 17:47 Inserir Bloco de Código
    segunda-feira, 17 de outubro de 2016 16:33

Todas as Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    Private Sub Workbook_Open()
        With wsDocumentação
            For I = 1 To .Cells(.Rows.Count, "E").End(xlUp)
                If .Cells(I, "D") > Date Then
                    MsgBox Prompt:=.Cells(I, "A") & " " & _
                                   .Cells(I, "B") & " " & _
                                   .Cells(I, "C") & " " & _
                                   .Cells(I, "D") & " " & _
                                   .Cells(I, "E") & " ", _
                           Buttons:=vbExclamation
                End If
            Next I
        End With
    End Sub
    
    


    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    • Sugerido como Resposta André Santo segunda-feira, 17 de outubro de 2016 16:54
    segunda-feira, 17 de outubro de 2016 16:49
    Moderador