none
Macro para enviar email quando datas estiverem próximas RRS feed

  • Pergunta

  • Boa noite,

    Gostaria de uma ajuda para criar uma macro que mande automaticamente um email quando datas estiverem próximas:

    A B C

    Data Hoje Data Validade Dias Restantes
    15/10/2014 16/10/2014 1

    Basicamente a planilha é um controle de contas, e gostaria que sempre que os "dias restantes" para o pagamento fosse 1, um email fosse enviado alertando para que a conta seja paga.

    Informando, a coluna com a Data Hoje esta sendo preenchida pela função HOJE().

    Eu tentei, baseado em uma macro que encontrei no forum, criar uma para que, quando 'dias restantes' for 1, apareça uma simples popup no Excel. Caso funcionasse, eu colocaria para disparar o email, mas nem isso está funcionando.

    Private Sub Worksheet_Change(ByVal Target As Range)

        linha = ActiveCell.Row - 1
        If Target.Address = "$C$" & linha Then

            If Plan1.Cells(linha, 3) = 1 Then
                MsgBox "Teste"
            End If

        End If

    End Sub

    Poderiam me ajudar, por favor?

    Obrigado


    • Editado Jundurian quarta-feira, 15 de outubro de 2014 23:48
    quarta-feira, 15 de outubro de 2014 23:48

Respostas