ACIONAR O EVENTO WORKSHEET_CHANGE AUTOMATICAMENTE

Question

Bom dia! 

Pessoal, to 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?

Answer 1

Olá, Elias! Tudo bem?

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN e TECHNET que são fóruns especialmente destinados para desenvolvedores e profissionais em TI.

:: MSDN ::

:: TECHNET ::

Agradeço a compreensão!

Até mais,