Executar macro ao alterar de uma célula

2024 - VBA & Macros

Post Recente por xlarruda 7 anos atrás

4 Posts

2 Usuários

0 Reactions

1,040 Visualizações

RSS

Renatoddd

(@renatoddd)

Posts: 70

Trusted Member

Topic starter

Amigos, bom dia.

Preciso calcular um valor que será exibido na célula B3.
Este cálculo será executado ao altear o valor de B2 de vazio para "SIM"

Até aí eu consigo fazer mas, se após executar o cálculo, eu for na célula B2 e apagar o "SIM", ele não limpa o valor de B3.

Obs. No código da macro eu coloquei. Se B2 = "", C2 tem que ficar vazio.

Tanto que se eu executar a macro, ele vai lá e limpa o valor de B3.

é tipo como se tivesse que atualizar a tela.

Se eu mudo B2 de vazio para "sim", ok, ele calcula o valor em B3 mas,
se eu mudo B2 de "Sim" para vazio, ele não apaga o valo de B3.

Sabem como resolver ?
valeu

Postado : 14/03/2018 7:31 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

poste seu código por favor..

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 14/03/2018 7:35 am

Renatoddd

(@renatoddd)

Posts: 70

Trusted Member

Topic starter

poste seu código por favor..

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$2" Then
Call CALCULAR_COMP_UM
Exit Sub
Call CALCULAR_COMP_UM
End If

Exit Sub

ESTE CÓDIGO ESTÁ NA Planilha.
Ele chama a macro de nome CALCULAR_COMP_UM

que está rodando certinho. Só não consigo fazer ela execuar ao alterar o valor de B2 de "SIM" para vazio (embora o código que fiz, mande limpar)

valeuu

Postado : 14/03/2018 7:40 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Olá segue conforme pedido.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target.Value = "SIM" Then
Call CALCULAR_COMP_UM
ElseIf Target.Value = "" Then
Call CALCULAR_COMP_UM
Else
Exit Sub
End If
End If
End Sub

Se a resposta te atendeu, por favor clica no joinha e marque o tópico como RESOLVIDO.

Abçr!

Att.

André Arruda

Postado : 14/03/2018 7:53 am