Página 1 de 1
Acionar uma macro VBA quando alterar o nome de uma célula
Enviado: 02 Jan 2019 às 19:57
por RogerioV10
Olá,
Em um arquivo EXCEL eu tenho uma célula que fica alterando de nome o dia todo (são 3 nomes), eu já fiz a ação/macro faça quando a célula é alterada... porém hj eu tenho que apertar o botão, gostaria que fosse automático.
Vou deixar o arquivo anexado!
Qualquer dúvida pode entrar em contato comigo!
Desde já agradeço!
Re: Acionar uma macro VBA quando alterar o nome de uma célul
Enviado: 03 Jan 2019 às 03:25
por babdallas
Coloquei no evento Change da sua planilha. Veja se é isso o que deseja.
Re: Acionar uma macro VBA quando alterar o nome de uma célul
Enviado: 03 Jan 2019 às 11:12
por RogerioV10
Muito Obrigado amigo! resolveu o meu problema... porém só funciona quando eu altero a célula F1 manualmente.
Na célula F1 eu tenho uma formula com um link externo que fica alterando de nome a todo momento, porém a macro não está executando automaticamente, você tem alguma sugestão para resolver esse problema?
Muito Obrigado!
Acionar uma macro VBA quando alterar o nome de uma célula
Enviado: 04 Jan 2019 às 09:12
por Jimmy
Olá @Rogeriov10,
Eu baixei a planilha que você colocou em seu post, assim como a do @babdallas, mas não vi formula na célula F1.
Pre ficar mais fácil de te ajudar, baixe a planilha novamente, com a fórmula, para que possamos simular a utilização normal, e achar o problema.
Jimmy San Juan
Acionar uma macro VBA quando alterar o nome de uma célula
Enviado: 04 Jan 2019 às 10:41
por RogerioV10
Ok Jimmy,
Segue o anexo, o link da célula F1 é externo e fica alterando em segundos, minutos (a fórmula está Ok), porém a macro só funciona quando eu altero a célula F1 manualmente... gostaria que a macro executasse conforme a célula F1 alterasse automaticamente (conforme o resultado do link e a fórmula).
Obrigado!
Re: Acionar uma macro VBA quando alterar o nome de uma célul
Enviado: 04 Jan 2019 às 11:17
por babdallas
Uma possibilidade é usar o evento Calculate da planilha.
Re: Acionar uma macro VBA quando alterar o nome de uma célul
Enviado: 04 Jan 2019 às 11:27
por babdallas
Uma ideia. Adapte para o seu caso.
Código: Selecionar todosOption Explicit
Private strTextoAntigo As String
Private Sub Worksheet_Calculate()
Dim strTexto As String
strTexto = Planilha1.Range("F1").Value2
If strTexto = strTextoAntigo Then Exit Sub
strTextoAntigo = strTexto
'chama aqui a sua subrotina
'Call Rotina
End Sub