EXECUTAR UM FORMULÁ...
 
Notifications
Clear all

EXECUTAR UM FORMULÁRIO E NA SEQUENCIA EXECUTAR UMA SUB

10 Posts
2 Usuários
0 Reactions
2,377 Visualizações
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

Pessoal,

Estou com dificuldade para resolver um problema com FORMULÁRIO. Criei um formulário que executa uma GIF animada, porém não tenho conhecimento para fazer o formulário ao ser executado e mostrando o form, neste caso mostrando a GIF, logo em seguida executar uma sub.

A finalidade é mostrar uma GIF que fica mostrando uma barra de progresso quando o formulário é mostrado na tela enquanto gera um processo que pode levar alguns minutos.

O primeiro BOTÃO que chama o formulário AVISO mostra somente o GIF sendo executado.

O segundo BOTÃO chama o formulario AVISO_IMPRIME mostra o GIF sendo executado e que precisa executar automaticamente a SUB IMPRIME na sequencia.

Em anexo um exemplo.

 
Postado : 30/09/2016 8:02 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Nao entendi o problema?

Junto do codigo que abre o formulario e executa a gif insira a linha antes de End Sub

Call Imprime

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 01/10/2016 8:23 am
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

O problema é que não sei como fazer que o segundo botão "MOSTRAR O FORMULÁRIO E EXECUTAR RELATÓRIO" mostre primeiro o imagem no formato em GIF sendo animada e na sequencia execute a SUB IMPRIME que está dentro do formulário AVISO_IMPRIME seja executa por inteira e somente no final dela o formulário seja fechado.

Quando coloco um CALL para executar a SUB IMPRIME preciso fechar o formulário, somente aí a SUB é executada.

 
Postado : 02/10/2016 6:45 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Coloca o código dentro do evento inicialize do userform.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/10/2016 5:53 pm
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

Fiz como indicou, pelo que acho ser da forma que penso ser. Deu erro.

Veja o anexo com as alterações.

 
Postado : 03/10/2016 6:32 pm
(@mprudencio)
Posts: 2749
Famed Member
 

O codigo de impressao funciona sozinho?

Pq parece que esta faltando coisas....

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 04/10/2016 6:37 am
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

Sim, funciona sozinho.

O problema é conciliar no formulário o GIF ser mostrado antes e a SUB IMPRIME depois.

Alterei para um FOR inserir o numero da linha na coluna A contando até 10 para mostrar que funciona parcialmente a planilha.

A SUB IMPRIME é executada perfeitamente, só que antes do FORMULÁRIO ser mostrado na tela. Só que o GIF dever ser mostrado antes e depois a SUB ser executada. E no novo anexo você pode averiguar a situação.

Segue um novo ANEXO

 
Postado : 04/10/2016 8:33 am
(@mprudencio)
Posts: 2749
Famed Member
 

Penso que esse formulario tem apenas a função visual da execução da macro, ele deve ser chamado antes e depois de rodar a rotina de impressao ele deve ser fechado.

Não é isso que vc pretende?

Se sim basta usar unload me na ultima linha do codigo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 04/10/2016 4:41 pm
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

Não...

Preciso que o formulário seja inciado e fique na tela mostrando o GIF (animação de uma barra de processamento), após mostrar o GIF tem que iniciar automaticamente a execução de um processo que leva uns minutinhos. Ao terminar do processo o formulário que fica mostrando o GIF será fechado.

Então, qual os passos para que isso aconteça.

 
Postado : 04/10/2016 5:09 pm
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

NOVO ANEXO...

Ao clicar no botão "MOSTRAR O FORMULÁRIO E EXECUTAR RELATÓRIO" será ativado o formulário AVISO_IMPRIME, que ao ser iniciado vai mostrar um GIF mostrando uma barra de processamento, no formulário tem um botão EXECUTAR PROCESSO e ao clicar nele será limpo o intervalo (A1:A10), ai um LOOP só para contagem de tempo, para dar um tempo antes de iniciar o preenchimento do intervalo (A1:A10) e no final deste o formulário será fechado... Entretanto o GIF para de ficar animando na tela, e isso ocorre quando a SUB é chamada, no novo anexo é mostrando que o GIF para de funcionar.

O que preciso é que de alguma forma o que o botão EXECUTAR PROCESSO faz, fosse executado automaticamente sem que se precise clicar nele e o GIF continue animando a tela.

Acho que expliquei melhor a minha necessidade.

 
Postado : 04/10/2016 6:16 pm