Atualizar a cada se...
 
Notifications
Clear all

Atualizar a cada segundo  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
07/07/2009 7:25 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
10/07/2009 4:30 pm  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
10/07/2009 4:45 pm  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
10/07/2009 6:42 pm  

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

Valeu!

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
13/10/2010 12:37 pm  

Boa tarde Leonardo,

bom mesmo,

Legal,

até mais,

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/10/2010 10:00 am  

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

Obrigado.

[]s

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/10/2010 9:45 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
27/06/2011 4:26 pm  

Segue download da plan...

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
28/06/2011 6:17 am  

VLW !!!

Tá rodando BLZ.

T+

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


ResponderCitar (Quote)
tiagogn
(@tiagogn)
Trusted Member
Entrou: 4 anos atrás
Posts: 61
05/09/2016 12:36 pm  

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


ResponderCitar (Quote)
Basole
(@basole)
Reputable Member
Entrou: 8 anos atrás
Posts: 488
05/09/2016 12:49 pm  

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!


ResponderCitar (Quote)
tiagogn
(@tiagogn)
Trusted Member
Entrou: 4 anos atrás
Posts: 61
05/09/2016 1:19 pm  

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


ResponderCitar (Quote)
Basole
(@basole)
Reputable Member
Entrou: 8 anos atrás
Posts: 488
06/09/2016 12:01 pm  

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

Click em se a resposta foi util!


ResponderCitar (Quote)
Compartilhar: