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 todos
Option 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