none
ACIONAR O EVENTO WORKSHEET_CHANGE AUTOMATICAMENTE RRS feed

  • Pergunta

  • 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

    domingo, 25 de maio de 2014 00:19

Todas as Respostas

  • Poderia explicar de uma forma mais clara? Não entendi sua necessidade.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 25 de maio de 2014 12:45
    Moderador