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,387 Visualizações
RSS
Fernando Fernandes
 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!!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/07/2009 4:30 pm
Fernando Fernandes
 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....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

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

Valeu!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Boa tarde Leonardo,

bom mesmo,

Legal,

até mais,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/10/2010 12:37 pm
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/10/2010 10:00 am
Fernando Fernandes
 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,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Segue download da plan...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

VLW !!!

Tá rodando BLZ.

T+

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/06/2011 6:17 am
 tiagogn
(@tiagogn)
Posts: 61
Trusted 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

Atenciosamente,

Tiago Gonçalves

 
Postado : 05/09/2016 12:36 pm
Basole
 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

Click em se a resposta foi util!

 
Postado : 05/09/2016 12:49 pm
 tiagogn
(@tiagogn)
Posts: 61
Trusted 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

Atenciosamente,

Tiago Gonçalves

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

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

Click em se a resposta foi util!

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