Notifications
Clear all

Macro Automática

11 Posts
1 Usuários
0 Reactions
2,107 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,

Bom dia!!!

Meus caros, como que eu faço para uma macro ser executada automaticamente a 2 minutos?

Obrigado

 
Postado : 24/02/2012 5:23 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!!

Não se esqueça da mãozinha!

Exemplo..

Private Sub Workbook_Open()
     Application.OnTime TimeValue("00:02:00"), "SuaMacro"

End Sub
 
Postado : 24/02/2012 5:37 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Julio, esse código tem que está dentro do Editor VBA, EstaPasta_de_Trabalho.

Qualquer dúvida retorne!

 
Postado : 24/02/2012 6:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara, não dei conta de fazer isso.

Tem como vc olhar p mim?

Colei o código aí dentro e ate mudei o tempo para dez segundos para fazer o teste, mas....

num foi.

Estou te mandando a planilha..

Valeu Obrigado

 
Postado : 24/02/2012 6:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!!

Infelizmente eu estou no trabalho e não posso baixar anexos.

Chego as 20:30 em casa e creio que até lá alguém deva ter te ajudado!

 
Postado : 24/02/2012 7:16 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Estou no horário de almoço.

Prontinho..baixe o anexo (na próxima poste um arquivo compactado, regras do fórum)

Abraços ;)

 
Postado : 24/02/2012 11:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara, não esta atualizando automaticamente.
Quando eu abro aparece a mensagem falando que a macro foi atualizada, mas na verdade não foi.
E esta mensagem so aparece quando eu abro, depois não aparece mais também

Flw,
Obrigado

 
Postado : 28/02/2012 5:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!!

Faça assim.
Substitua por esse código

Private Sub Workbook_Open()
     Application.OnTime Now + TimeValue("00:00:10"), "atualizar"
       
        
End Sub
 
Postado : 28/02/2012 5:53 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia,

Neste artigo tem um exemplo desta implementação. http://guiadoexcel.com.br/pomodoro-tecnica-para-organizacao-do-tempo

Abraço

Marcos Rieper

 
Postado : 28/02/2012 10:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu pessoal, ajudaram demais

e além desta ajuda que vcs me deram, eu tb encontrei uma solução.
tb pode ser usado o seguinte código:
caso alguém mais se interesse:

Cole isto aki abaixo da sua macro, mas no mesmo comando.

PauseTime = 10 ' define a duração da espera em 2 segundos.
Start = Timer ' define a hora inicial.
Do While Timer < Start + PauseTime
DoEvents ' submete a outros processos.
Loop

Call "nome da sua macro"

End Sub

Abraços

 
Postado : 02/03/2012 7:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Obrigado pelo retorno e colaboração.

precisando estaremos por aqui ;)

At++++

 
Postado : 02/03/2012 7:39 am