Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Atualizar a cada se...
 
Notifications
Clear all

Atualizar a cada segundo

 
2024 - VBA & Macros
Post Recente por Basole 8 anos atrás
13 Posts
3 Usuários
0 Reactions
9,382 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se vc quiser que sua planilha fique atualizando (do se ficasse apertando F9) a cada segundo vc pode usar o codigo abaixo.

Sub Auto_Open()
Atualiza
End Sub
Sub Atualiza()
DownTime = Now + TimeValue("00:00:01")
Application.OnTime DownTime, "Atualiza"
Calculate
End Sub
Sub Auto_Close()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="Atualiza", Schedule:=False
End Sub

Lembrando que a parte em azul e em verde é apenas para iniciar e encerrar a macro quando abre e fecha a planilha!!!

 
Postado : 07/07/2009 7:25 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Como ficaria a cada centésimo de segundo (00:00:00:01) :?:

 
Postado : 10/07/2009 4:30 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Minha sugestão é, fique com o de segundo a segundo... o cálculo todo da planilha não vai acontecer em centésimos de segundos....

 
Postado : 10/07/2009 4:45 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Faz sentido...pra que isso tudo neh... :lol:

Valeu!

 
Postado : 10/07/2009 6:42 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Leonardo,

bom mesmo,

Legal,

até mais,

 
Postado : 13/10/2010 12:37 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Leonardo, comigo deu um erro, será que você poderia me ajudar? Segue anexo.

Obrigado.

[]s

Erro macro.xls
 
Postado : 14/10/2010 10:00 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Leonardo,

coloquei os codigos na planilha, pois esta dando erro"Esta dizendo que não pode ser encontrada"?

Tentei fazer no excel2007 deu certo!

voce pode me ajudar ?

Grato,

 
Postado : 15/10/2010 9:45 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue download da plan...

 
Postado : 27/06/2011 4:26 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

VLW !!!

Tá rodando BLZ.

T+

 
Postado : 28/06/2011 6:17 am
 tiagogn
(@tiagogn)
Posts: 0
New Member
 

Pessoal,

Boa tarde.

Esse código funciona quando o propósito é atualizar porém ao fechar a planilha, após 10 segundos ela abre sozinha para executar a atualização novamente.

Obs.: alterei o tempo de 10 em 10 segundos para testar.

Alguém tem uma solução pra isso?

Agradeço desde já.

Tiago Gonçalves

 
Postado : 05/09/2016 12:36 pm
 Basole
(@basole)
Posts: 487
Reputable Member
 

Declare a variavel DownTime como publica no seu módulo padrao.
=> Public DownTime As String
E use o evento Workbook_BeforeClose para parar a macro qdo. fechar o arquivo.:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Auto_Close
End Sub
 
Postado : 05/09/2016 12:49 pm
 tiagogn
(@tiagogn)
Posts: 0
New Member
 

Basole,

Estou anexando uma planilha básica somente para teste deste código.

Pode me ajudar por favor? Acredito que estou colocando os códigos em locais incorretos (Esta_Pasta_de_Trabalho e/ou Módulo)

Agradeço desde já!

Tiago Gonçalves

 
Postado : 05/09/2016 1:19 pm
 Basole
(@basole)
Posts: 487
Reputable Member
 

@Tiago, siga os passos de acordo com as imagens abaixo:

 
Postado : 06/09/2016 12:01 pm
Forum Jump:
Próximo Tópico