Notifications
Clear all

Função Agora

9 Posts
3 Usuários
0 Reactions
2,369 Visualizações
(@aleixo13)
Posts: 9
Active Member
Topic starter
 

Boa noite,

Estou precisando de uma ajuda...
Tem como a função =agora() ser atualizada a cada 5 ou 10 min por exemplo??
Preciso dessa atualização por causa da hora, que deve ser precisa...

 
Postado : 01/10/2014 4:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

usando VBA..?
tente..

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:01"), "UAleVBA_13086"
End Sub
Sub AleVBA_13086()
    Worksheets("Plan1").Range("A1").Calculate
    Application.OnTime Now + TimeValue("00:00:05"), "AleVBA_13086"
End Sub

Att

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

 
Postado : 01/10/2014 6:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

a solução do Alexandre é a única, mas usa VBA.

Atenção, quando ele coloca no código:
"00:00:05"

05 neste caso é 5 segundos...
Se quer de 5 em 5 minutos, ou a cada 10, daí vc precisa usar "00:05:00" ou "00:10:00"

Mas esse é o jeito.

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

 
Postado : 01/10/2014 7:27 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

O primeiro código vc coloca em EstaPasta_de_trabalho

O segundo, pode colocar num módulo.

E não esquece de clicar na mãozinha pra agradecer a quem te ajudou.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 01/10/2014 7:55 pm
(@aleixo13)
Posts: 9
Active Member
Topic starter
 

Boa dia,

Aqui está dando erro.
Fiz o que vc falou gtsalikis, coloquei a primeira parte na pasta de trabalho e o outro na plan1.
Ainda não entendi como faz a atualização... se mando rodar a macro diz que não é possível, que a macro não está na pasta de trabalho ou as macros estão desabilitadas.
Para mim, nenhum dos dois.
Santa ignorância...!!!

A mãozinha para agradecer eu estava deixando pro fim, mas vou clicar em todas já!

E continuo precisando da ajuda....

 
Postado : 02/10/2014 8:48 am
(@aleixo13)
Posts: 9
Active Member
Topic starter
 

Putz, a ignorância é uma m)(*%$#a...
Coloquei o segundo código em um módulo a agora funcionou...
O link do Alexandrevba foi fundamental.
Obrigado a todos que ajudaram este inhorante...

[]s

 
Postado : 02/10/2014 9:00 am
(@aleixo13)
Posts: 9
Active Member
Topic starter
 

Boa noite pessoal,

Já fui ajudado quanto a questão da fórmula =agora() para atualizar automaticamente de acordo com o período que eu escolher.
O autor foi o alexandrevba, a quem já agradeci muito.
Agora surgiu novo problema, em cima da mesma questão:
Eu terei duas planilhas que terão a fórmula =agora() para serem atualizadas, mas cada uma deve ter um tempo diferente de atualização.
Como fazer isso?

Agradeço desde já.

 
Postado : 05/10/2014 6:37 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aleixo

Eu uni os teus 2 tópicos.
Não é permitido abrir 2 tópicos sobre a mesma dúvida.
Quando aparecerem novas dúvidas e o tópico já estiver trancado, basta enviar uma MP para um Moderador, solicitando a reabertura do tópico.

Patropi - Moderador

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

 
Postado : 05/10/2014 7:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não sei se entendi, mas tente algo assim...
Insira esse código dentro do módulo de Arquivo (EstaPasta_de_trabalho)

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:03"), "AleVBA_13086"
    Application.OnTime Now + TimeValue("00:00:05"), "AleVBA_13086_II"
End Sub

Insira esse código dentro do Módulo comum

Sub AleVBA_13086()
dTime = Now + TimeValue("00:00:03")
Application.OnTime dTime, "AleVBA_13086"
Worksheets("Plan1").Range("A1") = dTime
End Sub
Sub AleVBA_13086_II()
dTime = Now + TimeValue("00:00:05")
Application.OnTime dTime, "AleVBA_13086_II"
Worksheets("Plan1").Range("A2") = dTime
End Sub

Caso queira ler mais sobre o assunto veja:
http://www.globaliconnect.com/excel/ind ... Itemid=475
http://msdn.microsoft.com/en-us/library ... =office.15).aspx
http://www.brainbell.com/tutorials/ms-o ... t_Time.htm
Att

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

 
Postado : 06/10/2014 6:23 am