Executar macro ao alterar o valor de uma célula via fórmula
Enviado: 02 Abr 2020 às 18:11
Eu tenho um código que executa um loop de copiar e colar a cada 5 segundos caso a célula A1 esteja como "Leilao".
Os triggers para a célula A1 ficar "Leilao" são: Células B1, C1, D1, E1... etc , ou seja, quando QUALQUER uma dessas células alterar de "Normal" para "Leilao", a célula A1 fica em "Leilao" automáticamente e ativa a macro de loop.
Até aí tudo bem.
O Problema está na repetição, ou seja, quando a célula B1 está em "Leilao", ativa a macro, quando a celula C1 também entra em "Leilão", a macro começo rodar 2x seguidas e assim por diante, mesmo ter configurado apenas para a célula A1 ser o gatilho da macro.
Segue a macro dentro da planilha:
"Private Sub Worksheet_Change(ByVal Target As Range)
If Planilha2.Cells(1, "A") = "Leilao" Then
Loop 'começa a rodar a macro de copia e cola em loop de 5 segundos
Else
StopTimer 'roda a macro para parar o loop
End If
End Sub
"
Os triggers para a célula A1 ficar "Leilao" são: Células B1, C1, D1, E1... etc , ou seja, quando QUALQUER uma dessas células alterar de "Normal" para "Leilao", a célula A1 fica em "Leilao" automáticamente e ativa a macro de loop.
Até aí tudo bem.
O Problema está na repetição, ou seja, quando a célula B1 está em "Leilao", ativa a macro, quando a celula C1 também entra em "Leilão", a macro começo rodar 2x seguidas e assim por diante, mesmo ter configurado apenas para a célula A1 ser o gatilho da macro.
Segue a macro dentro da planilha:
"Private Sub Worksheet_Change(ByVal Target As Range)
If Planilha2.Cells(1, "A") = "Leilao" Then
Loop 'começa a rodar a macro de copia e cola em loop de 5 segundos
Else
StopTimer 'roda a macro para parar o loop
End If
End Sub
"
