executar automaticamente uma macro do Excel em uma mudança de célula

Como posso executar automaticamente uma macro do Excel sempre que um valor em uma célula específica muda?

No momento, meu código de trabalho é:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H5")) Is Nothing Then Macro
End Sub

onde "H5"é a célula particular sendo monitorada e Macroé o nome da macro.

Existe uma maneira melhor?

Seu código parece muito bom.

Tenha cuidado, entretanto, pois sua chamada para Range("H5")é um comando de atalho para Application.Range("H5"), que é equivalente a Application.ActiveSheet.Range("H5"). Isso pode ser bom, se as únicas alterações forem alterações do usuário - que é a mais comum - mas é possível que os valores das células da planilha sejam alterados quando não for a planilha ativa por meio de alterações programáticas, por exemplo, VBA.

Com isso em mente, eu utilizaria Target.Worksheet.Range("H5"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("H5")) Is Nothing Then Macro
End Sub

Ou você pode usar Me.Range("H5"), se o manipulador de eventos estiver na página de código da planilha em questão (geralmente está):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then Macro
End Sub

Espero que isto ajude...

Lidar com o Worksheet_Changeevento ou oWorkbook_SheetChange evento.

Os manipuladores de eventos usam um argumento "Alvo como intervalo", para que você possa verificar se o intervalo que está mudando inclui a célula na qual está interessado.

Passei muito tempo pesquisando isso e aprendendo como tudo funciona, depois de realmente bagunçar os gatilhos de eventos. Como havia tantas informações espalhadas, decidi compartilhar o que descobri para funcionar em um só lugar, passo a passo da seguinte maneira:

1) Abra o VBA Editor, em VBA Project (YourWorkBookName.xlsm), abra o objeto Microsoft Excel e selecione a planilha à qual o evento de alteração se refere.

2) A visualização do código padrão é "Geral". Na lista suspensa na parte superior central, selecione "Planilha".

3) Private Sub Worksheet_SelectionChange já está lá como deveria estar, deixe como está. Copie / cole o código de Mike Rosenblum acima e altere a referência .Range para a célula para a qual você está procurando uma alteração (B3, no meu caso). Não coloque sua macro ainda, no entanto (removi a palavra "Macro" depois de "Então"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then
End Sub

ou na lista suspensa no canto superior esquerdo, selecione "Alterar" e, no espaço entre Private Sub e End Sub, cole If Not Intersect(Target, Me.Range("H5")) Is Nothing Then

4) Na linha após "Então" desligue os eventos para que quando você chamar a sua macro, ela não acione eventos e tente executar esta Worksheet_Change novamente em um ciclo sem fim que trava o Excel e / ou bagunça tudo:

Application.EnableEvents = False

5) Chame sua macro

Call YourMacroName

6) Ative os eventos novamente para que a próxima mudança (e qualquer / todos os outros eventos) seja acionada:

Application.EnableEvents = True

7) Termine o bloco If e o Sub:

    End If
End Sub

Todo o código:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B3")) Is Nothing Then
        Application.EnableEvents = False
        Call UpdateAndViewOnly
        Application.EnableEvents = True
    End If
End Sub

Isso ativa / desativa eventos dos Módulos, o que cria problemas e simplesmente permite que a alteração seja acionada, desativa eventos, executa sua macro e ativa os eventos novamente.

Eu prefiro assim, não usando uma célula, mas um intervalo

    Dim cell_to_test As Range, cells_changed As Range

    Set cells_changed = Target(1, 1)
    Set cell_to_test = Range( RANGE_OF_CELLS_TO_DETECT )

    If Not Intersect(cells_changed, cell_to_test) Is Nothing Then 
       Macro
    End If

Tenho um celular que está vinculado ao banco de dados de ações online e é atualizado com frequência. Quero acionar uma macro sempre que o valor da célula for atualizado.

Eu acredito que isso é semelhante à alteração do valor da célula por um programa ou qualquer atualização de dados externa, mas os exemplos acima de alguma forma não funcionam para mim. Acho que o problema é porque os eventos internos do Excel não são acionados, mas é o meu palpite.

Eu fiz o seguinte,

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Not Intersect(Target, Target.Worksheets("Symbols").Range("$C$3")) Is Nothing Then
   'Run Macro
End Sub