Excel Executar uma Macro Quando Uma Célula Tem o Valor VERDADEIRO

[Ariel Souto]

Queridos, boa noite. Estou com um problema e gostaria da ajuda de vocês.

 

Eu tenho uma célula com uma fórmula que resulta em verdadeiro ou falso. Quando essa célula está com o valor verdadeiro, eu gostaria que ela executasse uma macro automaticamente.

 

Falso: não chama nada.

Verdadeiro: chama a macro automaticamente 1 vez.

 

Poderiam me ajudar com isso? Sou extremamente agradecido pela ajuda de vocês.

[Midori]

@Ariel Souto  Cole no módulo da planilha e edite o nome da macro e a célula que deseja verificar,

 

Private Sub Worksheet_Calculate()
    If [A1] = True Then Call Macro
End Sub

 

[Ariel Souto]

@Midori  Colei o código, como você passou, mas deu erro (segue imagem em anexo).

 

Aí, após o erro da imagem, eu olhei o código e pensei que talvez seria porque não tinha End If e coloquei. Por fim, parece que o código roda, mas parece que enquanto o valor da célula é VERDADEIRO, o código fica rodando loucamente sem parar e trava o excel. Ele travou o excel imediatamente (nem pude conferir se rodou mesmo a macro). 

 

Porque essa macro que eu quero rodar é o seguinte: se a célula for verdadeiro, rode a macro de limpar alguns campos da planilha. Aí acho que ele está fazendo isso sem parar.

 

O código que eu coloquei com o End If: ***MUDEI A CÉLULA BJ17 PARA BD17, mas por questões pessoais mesmo.

 

Private Sub Worksheet_Calculate()
    If [BD17] = True Then
        Call limpar_busca_paciente
    End If
End Sub

 

[Midori]

16 minutos atrás, Ariel Souto disse:

Porque essa macro que eu quero rodar é o seguinte: se a célula for verdadeiro, rode a macro de limpar alguns campos da planilha. Aí acho que ele está fazendo isso sem parar.

Pode ser isso.

 

Qual é o critério para a célula voltar a ser False? Você não pode fazer isso no fim da sub limpar_busca_paciente?

 

A macro vai ter que controlar isso, se não for na Sub que é chamada uma forma é no próprio evento, p.ex

 

Private Sub Worksheet_Calculate()
    Static B As Boolean
    
    If [A1] = True And B = True Then
        Call Macro
        B = False
    End If

    If [A1] = False Then B = True
End Sub

Assim a macro será chamada quando A1=True e depois só será executando após False entre as condições True.

[Ariel Souto]

@Midori Infelizmente não deu certo. Fecha meu excel. Não dá nenhum erro, mas na hora que o código roda, o excel fecha. Não sei o motivo, mas apenas fecha sozinho. Mas tudo bem, se não der certo não tem problema. Era só algo que eu queria fazer por perfeccionismo meu mesmo. MUITÍSSIMO OBRIGADO pela sua disposição de tempo em me ajudar.

 

Eu vou te explicar melhor o meu caso, pois talvez você consiga me ajudar de outra forma.

 

Tenho uma lista de validação de dados. Quando eu seleciono algum nome da lista, em alguns campos escondidos são puxadas as informações desse nome. Quando eu clico no botão buscar, essas informações desses campos escondidos são copiadas para outros campos do design da planilha. Até aqui, ok. Mas quando eu deleto o nome lá da lista de validação de dados ou seleciono outro nome, enquanto eu não clico em buscar novamente, ficam os dados antigos que foram copiados.

 

Minha intenção em fazer aquilo que pedi ajuda no tópico era para que assim que tal célula ficasse verdadeira, esses dados fossem limpados para que quando eu colocasse outro nome da lista de validação de dados, na parte do programa, as células estivessem em branco.

 

Seguem todos para ilustrar melhor.

[Visitante]

Em 22/07/2020 às 22:16, Ariel Souto disse:

Eu tenho uma célula com uma fórmula que resulta em verdadeiro ou falso.

 

Tentando ajudar. Você poderia colocar uma cópia da fórmula aqui no fórum ?

[Ariel Souto]

@osvaldomp Segue: =SE($S$11<>$S$13; VERDADEIRO; FALSO)

 

Se puder, veja a mensagem anterior que tem uma imagem exemplificando bem o que eu preciso fazer.

[Midori]

@Ariel Souto  Se você puder anexar a planilha vai ficar mais fácil ajudar.

[Visitante]

Seguem duas ideias.

 

1. se viável, coloque nos campos "cinza" as fórmulas que estão nos campos "escondidos", assim não serão necessárias macros

 

2. instale uma cópia do código abaixo no módulo da planilha (considerei que a célula que contém a Validação é K5, altere se necessário).

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$K$5" Then Exit Sub
 Macro Limpar
 If Target.Value <> "" Then Macro Atualizar
End Sub

funcionamento - ao efetuar qualquer alteração manual no conteúdo da célula que contém a Validação de Dados, a macro Limpar será chamada, e se houver um nome naquela célula então a macro Atualizar será chamada.

[Ariel Souto]

@osvaldomp Desculpem a demora. Deu certo. Muitíssimo obrigado!

[Patropi]

@Ariel Souto

 

Então faltou você curtir as respostas de quem te ajudou e marcar o tópico como Resolvido. 

(Na minha assinatura tem um link para uma instrução de como proceder).