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 & _
Pergunta
Btsmiranda
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.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.