Notifications
Clear all

macro para executar uma vez ao dia

9 Posts
5 Usuários
0 Reactions
1,634 Visualizações
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Ola bom dia,
Estou em busca de uma macro que executa uma vez ao dia;
Se a planilha estiver fechada no horário ou data da programação ao abrir executa a macro somente uma vez ao dia.
Obrigado.

 
Postado : 29/09/2015 8:40 am
(@mprudencio)
Posts: 0
New Member
 

Nao entendi direito seu objetivo mas o que vc pode fazer é colocar ela dentro do evento workbook open

Assim ela vai executar ao abrir o arquivo.

 
Postado : 29/09/2015 9:02 am
(@miguel-70)
Posts: 0
New Member
Topic starter
 

A macro para executar é pesada e demorada, então queria que ela rodasse somente uma vez ao dia no evento workbook open.
Todos os dias ao abrir o arquivo mas somente uma vez ao dia.

 
Postado : 29/09/2015 2:23 pm
(@mprudencio)
Posts: 0
New Member
 

Se ela é pesada e demora muito para ser executada vc pode criar outra macro que te passe uma mensagem de aviso para rodar a macro assim que abrir o arquivo e colocar a macro em um modulo e associar a um botao e pronto.

sub workbook open()

msgbox "Não esqueça de Executar a macro Relatorio", vbokonly, "Atenção"

End Sub.

Assim sempre que abrir o arquivo vc tera o aviso de executar a macro

 
Postado : 29/09/2015 3:07 pm
(@renatbr)
Posts: 0
New Member
 

Ou entao voce poderia mandar a macro ao final da execucao escrever a data em alguma celula, e ao abrir novamente, fazer uma verificacao, antes da macro ser executada, se a celula esta com a data de hoje escrita. Se nao estiver escrito a data de hoje, a macro eh executada, se ja estiver com a data, a macro para.

 
Postado : 29/09/2015 7:13 pm
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Obrigado pela dica Renatbr,
Se possível poste um modelo descrito acima.

 
Postado : 30/09/2015 8:17 am
(@carlosrgs)
Posts: 0
New Member
 

Bom dia.

Você pode utilizar esta macro para confirmar se quer executar ou não!.

Public Sub SolicitandoConfirmação()
If MsgBox(“Deseja Continuar?”,vbYesNo) = vbNo Then
        Exit Sub
End If

‘Aqui entra a macro caso seja clicado em sim.

End Sub
 
Postado : 30/09/2015 8:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Leia:
http://cse.google.com.br/cse?cx=partner ... c.q=ontime

Att

 
Postado : 30/09/2015 8:30 am
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Resolvido obrigado pela ajuda.

Private Sub Workbook_Open()
  If Range("A1") <> Date Then
   Call executa_Macro
 End If
End Sub
Sub executa_Macro()
'rodar macro aqui
'final da macro data hoje
 Range("A1") = Date
 MsgBox "SISTEMA RECONFIGURADO"
End Sub
 
Postado : 30/09/2015 4:05 pm