Notifications
Clear all

msgbox aparecer após 4 segundos

8 Posts
4 Usuários
0 Reactions
1,611 Visualizações
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, bom dia!

Como faço para atrasar a msgbox em 4 segundos?

código da minha planilha

Private Sub Worksheet_Activate()

Plan1.WebBrowser1.Navigate ("https://www.criarbanner.com.br/criargifs/a/cd5e9d44597e36cddf83c8bf3964c65a.gif")
 
MsgBox "Clique em ok para abrir a plan3", vbInformation, "Aviso" ' essa mensagem vai aparecer depois de 4 segundos e quando ela aparecer plan1 será ocultada

Sheets("Plan3").Select

End Sub


'procedimentos:

' quando a plan1 for aberta vai aparecer o meu gif (ele vai ficar visivel por 4 segundos)

' depois de 4 segundos a plan1 será ocultada e logo em seguinda vai aparecer o msgbox

' para criar uma aparencia de que realmente o sistema está carregando as informações

em anexo, segue a planilha.

muito obrigado a todos pela atenção

 
Postado : 25/05/2018 7:27 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Veja se é assim:

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

Att.

André Arruda

 
Postado : 25/05/2018 8:02 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, tentei usar esse procedimento porém meu gif não aparece.

você conseguiu rodar ai?

minha ideia é a seguinte:

quando o usuário estiver na Plan2 e clicar no botão abrir Plan3, ele será redirecionado para a plan1 (planilha que possui o meu gif)

quando ele "cair na plan1" o meu gif vai rodar por 4 segundos (o usuário vai ver o gif rodando)

depois desses 4 segundos a plan1 vai ficar oculta e vai aparecer msgbox.

hoje o meu código abaixo vai para a plan1, exibe o gif para o usuário, porém no mesmo instante exibe também a msgbox (eu preciso retardar essa msgbox por 4 segundos e quando ela aparecer a minha plan1 vai ficar oculta) assim vai dar a impressão que o sistema carregou as informações.

Private Sub Worksheet_Activate()

Plan1.WebBrowser1.Navigate ("https://www.criarbanner.com.br/criargifs/a/cd5e9d44597e36cddf83c8bf3964c65a.gif")

MsgBox "Clique em ok para abrir a plan3", vbInformation, "Aviso"

Sheets("Plan3").Select

End Sub

muito obrigado pela sua atenção.

 
Postado : 25/05/2018 9:28 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Na verdade pra mim não aparece esse GIF
Só dá um erro tipo: "Método ou membro de dados não encontrado"

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

Att.

André Arruda

 
Postado : 25/05/2018 9:57 am
(@boobymcgee)
Posts: 84
Trusted Member
 

JNEXCEL veja se é isso.

Tem um problema com esse controle ActiveX Microsoft Web Browser no Excel 2013(15.0)* e no 2016(16.0), originalmente ele não funciona, mas tem solução:

Entrar no editor de registro neste caminho e localizar a chave:

HKEY_LOCAL_MACHINESOFTWAREMicrosoftOffice15.0CommonCOM Compatibility{8856F961-340A-11D0-A96B-00C04FD705A2}

Se não achar seguindo esse caminho, efetue a busca pela chave abaixo, mas atenção tem que estar dentro da pasta office 15.0 ou 16.0, conforme e versão. Na busca vai aparecer em outros locais, mas continue buscando (F3) até chegar no local correto.

{8856F961-340A-11D0-A96B-00C04FD705A2}

Após localizar a chave correta:

Na caixa de alteração selecione Decimal e coloque o valor 0 (Zero), clique em ok.

Pronto, pode fechar o editor de registro e o controle vai estar ativo e funcional.

 
Postado : 25/05/2018 12:56 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

agradeço pela sua atenção quanto a minha dúvida :)

essa planilha eu vou enviar para um terceiro (ele não vai conseguir realizar o procedimento indicado). :(

por essa razão eu vou mudar de procedimento srsr

eu vou utilizar uma imagem normal ao invés do gif

nesse caso, por favor, alguém sabe como posso proceder?

muito obrigado a todos pela atenção e tempo :)

 
Postado : 29/05/2018 5:11 am
(@boobymcgee)
Posts: 84
Trusted Member
 

Olá.

JNEXCEL, proceder da mesma forma que esta no arquivo acima, uma coisa não tem nada a ver com a outra.

O procedimento de atrasar a msgbox é independente.

 
Postado : 30/05/2018 5:11 am
sandroh
(@sandroh)
Posts: 40
Eminent Member
 

Tenta antes do msgbox colocar o código:
Application.Whait (Now + TimeValue("0:00:04"))

Caso tenha resolvido, não esqueça de clicar na mãozinha ao lado da ferramenta "citar" e fechar o tópico ;)

 
Postado : 30/05/2018 7:54 am