Este fórum está sendo desativado

[Neuza]

Bom Dia a Todos!
Olá, sou nova aqui no fórum, preciso de ajuda com o problema abaixo:
O pedido de ajuda : Que seja "resetada" a figura da célula "A7" até que seja escolhida uma nova variável em "B9".
OBS: Maiores detalhes na planilha anexo.
Desde já agradeço

[osvaldomp]

Olá, @Neuza .

Experimente uma cópia do código abaixo no lugar do existente no módulo da planilha INSERIR RESULTADOS.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$8" Then [B9] = "": Me.Shapes("Imagem 9").Visible = False
 Me.Shapes("Imagem 9").Visible = [B9] <> ""
End Sub

#
obs. o código LIMPA01 existente no Módulo1 não será utilizado pelo código acima.

[Neuza]

Boa tarde Osvaldomp !
Perfect!!!!!
Muitíssimo Obrigada.