Este fórum está sendo desativado

[Jore]

Olá pessoal,
Tenho um form de informação, gostaria que ele se fecha-se após 5 segundos.

Encontrei um código na net mas não deu certo para mim.

Código: Selecionar todos

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fechar"
End Sub

E coloque em um módulo esse código:

Sub Fechar()
Unload UserForm1
End Sub

Segue o modelo em anexo!

Alguém pode em ajudar?
Obrigado a todos!

[osvaldomp]

Encontrei um código na net mas não deu certo para mim.

Provavelmente não deu certo porque você instalou os códigos em módulos não adequados.

Em um módulo comum (no editor de VBA / menu Inserir / Módulo) instale uma cópia dos códigos abaixo.

Código: Selecionar todos

Sub ChamarFormInfo()
 UserForm1.Show
End Sub

Sub Fechar()
 Unload UserForm1
End Sub

E no módulo do Form (no editor de VBA dê duplo clique sobre a figura do Form) instale uma cópia do código que você pegou na NET.

[Jore]

Olá osvaldomp, tudo bem?
Então, eu fiz como você recomendou e mesmo assim não esta dando certo.
devo estar cometendo algum erro bobo.
SE o senhor puder dar uma olhada e me orientar sobre o meu erro ficarei muito agradecido.
Uma excelente semana para todos!

Nova planilha:

[Jimmy]

Olá Jore,

Teste a planilha abaixo.

Jimmy San Juan

[Jore]

Obrigado Jimmy deu certinho agora!