Jump to content
onicolau

Executar uma macro quando por uma formula o valor de uma célula se altera envia email

Recommended Posts

onicolau

consegui um código que na coluna "F" altere envia uma email, mais no código abaixo só envia email quando é digitado na célula.

mais o que pretendo é: accione a macro quando por uma formula altere a célula.

espero que me passam ajudar!!!!

 abaixo à código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

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

        If Folha1.Cells(linha, 6) = "Período Vencido" Then
            texto = "Prezado(a) " & Folha1.Cells(linha, 1) & "," & vbCrLf & _
                    " Nº Conta " & Folha1.Cells(linha, 7) & " Data Abertura " & _
                    Folha1.Cells(linha, 2) & " Periodo Venceu ou sofreu alterações." & _
                    vbCrLf & vbCrLf & " Veja informações abaixo:" & vbCrLf & _
                    "    Status: " & Folha1.Cells(linha, 6) & vbCrLf & _
                    "    Ação tomada: " & Folha1.Cells(linha, 5) & vbCrLf & vbCrLf & _
                    "Cordealmente. " & vbCrLf & vbCrLf & _
                    "Osvaldo Nicolau " & vbCrLf & "Gestor de Contas (Finanças)"
        End If

        With OutMail
            .To = Folha1.Cells(linha, 1)
            .CC = "osvaldonicolau0@gmail.com"
            .BCC = "osvaldocandeeiro@outlook.com"
            .Subject = "termino do Periodo"
            '.HTMLBody = texto
            .Body = texto
            .Display   'Utilize Send para enviar o email sem abrir o Outlook
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.