Preciso disparar um e-mail automático sempre que um determinado valor seja superado; escrevi o código abaixo,
mas ele não roda automaticamente pelo resultado da formula, contida na coluna "AU". Alguém pode me ajudar? Segue o código:
Private Sub Worksheet_Change(ByVal Target As Range) Dim Column As Range linha = ActiveCell.Row texto = "A OP Nº " & Plan1.Cells(linha, 4) & ", do produto " & Plan1.Cells(linha,
13) & ", concluída em " & Plan1.Cells(linha, 9) & ", teve um refugo de " & (Plan1.Cells(linha, 47) * 100) & "%." assunto = "Excesso de Refugo" Set Column = Range("AU:AU") Dim olApp As Object, olMail As Object If Not Application.Intersect(Target, Range("AU:AU")) Is Nothing Then If IsNumeric(Target.Value) And Target.Value > 0.03 Then Set olApp = CreateObject("Outlook.Application") Set olMail = olApp.CreateItem(0) olMail.Subject = assunto olMail.Body = texto olMail.To = "jricardoq@gmail.com" olMail.Send MsgBox "Um e-mail foi enviado aos envolvidos, informando o refugo acima de 3% desta OP." Set olApp = Nothing Set olMail = Nothing End If End If End Sub