alguém que possa me ajudar na fórmula abaixo? preciso que o Excel mande o email do conteúdo da linha quando o resultado da formula = "SOLICITAR". fiz também no Private Sub Worksheet_Change(ByVal Target As Range) End Sub funciona só que tenho que DIGITAR SOLICITAR quero que leia da Fórmula direto.
Private Sub Worksheet_Calculate()
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 = "$H$" & linha Then -- Quando chega aqui para
"<p>Informamos que o documento " & Plan1.Cells(linha, 1) & " de número " & Plan1.Cells(linha, 2) & " está na época de renovação, favor verificar informações abaixo para providências: " & vbCrLf & _
Enviar email no excel ao ler o resultado de uma fórmula
em Visual Basic
Postado
Amigos,
alguém que possa me ajudar na fórmula abaixo? preciso que o Excel mande o email do conteúdo da linha quando o resultado da formula = "SOLICITAR". fiz também no Private Sub Worksheet_Change(ByVal Target As Range) End Sub funciona só que tenho que DIGITAR SOLICITAR quero que leia da Fórmula direto.