Boa noite pessoal,

Por favor, alguém poderia avaliar o código abaixo e me dizer se é possível adaptar o evento worksheet para que funcione por meio de fórmula? Este código é excelente, funciona certinho para minhas necessidades, porém ele só funciona quando faço entrada manual, mas a célula que vai ser alterada na minha planilha e que é o gatilho é alterada por meio de fórmula. Percebi que seu eu der um enter na fórmula o código funciona.

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 = "$I$" & linha Then

If plan2.Cells(linha, 9) = "Menos de 15 Dias p/ o Prazo" Then
texto = "Prezado(a)" & plan2.Cells(linha, 4) & "," & vbCrLf & vbCrLf & _
"A ação " & plan2.Cells(linha, 2) & _
"irá vencer em 15 dias." & vbCrLf & _
"Atenciosamente," & vbCrLf & _
"EHS"
End If

With OutMail
.To = plan2.Cells(linha, 4)
.CC = "[email protected]"
.BCC = ""
.Subject = "Ação a vencer"
.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

quem quiser o original, é só acessar o site: http://excelmax.blogspot.com.br/2012/09 ... la-do.html , tem informações sobre cada item do código.

outra pergunta, esta mais fácil, como deixo o código VBA naquela janelinha especial do fórum?