Boa Noite!
Pessoal, estou com o seguinte problema,
tenho uma macro que é disparada um email quando um valor é inserido em uma celula especifica, (isso eu digitando o valor), agora gostaria de fazer com que essa macro fosse disparada automaticamente esse valor fosse
inserido automaticamente; exe. Cell. A1 + A2 = resultado, ao invés de ter que digitar o valor segue o meu código;
Private Sub Worksheet_Change(ByVal Target As Range)
selecionado = ActiveCell.Row - 1
linhadados = 2
conta = 0
If Target.Address = "$O$" & selecionado Then
Do While Sheets(1).Cells(linhadados, 15).value <> ""
If Plan1.Cells(linhadados, 15).value <= 20 Then
Call EnviarEmail(Cells(linhadados, 16), Cells(linhadados, 17), Cells(linhadados, 18), Cells(linhadados, 19))
conta = conta + 1
MsgBox ("Foi enviado " & conta & " emails " & "com sucesso!"), vbInformation
End If
linhadados = linhadados + 1
Loop
End If
End Sub
Alguém pode ajudar?
Obs: estou tentando com o evento WORKSHEET_CALCULATE
mas não estou conseguindo
