Excel exibir userform conforme conteúdo de célula

[Aldemir Fidelis]

Pessoal boa tarde, tenho uma mensagem em um UserForm no Excel VBA, gostaria que esse UserForm executasse assim que a Célula A1 fosse igual a 1. Tentei de algumas formas aqui e não consegui, será que podem me ajudar ? 

 

Obrigado.

 

Att;

 

Aldemir Fidelis

Controlador de Custos

Usina Bom Sucesso - Goiatuba-GO

[Patropi]

Boa tarde Aldemir

 

Experimente:usar:

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1")) Is Nothing Then
           Select Case Target
             Case 1
               Call macro1
             
             Case Else
           End Select
        End If
        Application.EnableEvents = True
End Sub
Sub macro1()
    UserForm1.Show
End Sub

Dê retorno.

 

Se foi útil, clique em Curtir.

 

[]s

[Visitante]

Olá, Aldemir.

 

Sugiro que você disponibilize uma amostra do seu arquivo.

 

Informe como o conteúdo da célula 'A1' se torna igual a 1. É resultado de fórmula, é inserido por digitação, é por copiar/colar...?

 

Informe o que você quer dizer com "UserForm executasse". Você quer exibir o UserForm?

 

 

[Aldemir Fidelis]

Pessoal bom dia, desculpe por não ter detalhado muito a minha explicação no dia estava um pouco corrido kk, mas segue anexo imagens da minha planilha, Quando a Célula S16 ficar em vermelho e aparecer "LUBRIFICAÇÃO VENCIDA" gostaria que aparecesse o form que está também anexo.

 

Obrigado.

 

Att;

 

Aldemir Fidelis

[Aldemir Fidelis]

Patropi, testei seu código, quando executo pelo VBA ele funciona, mas quando coloco pra executar na formula ele não aparece. O mesmo que acontece comigo.

[CasaDoHardware]

O excel nao abre imagens amigo.

Abre arquivos xl*,*