Notifications
Clear all

Data e Hora na célula ao abrir o arquivo

4 Posts
1 Usuários
0 Reactions
1,053 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde,

Preciso que meu arquivo ao abri-lo apareça na célula M7 a data e na célula N7 a hora, sendo atualizado automaticamente.
Mais explicação e melhor visualização da necessidade em anexo.

silva_jmp

 
Postado : 13/01/2012 9:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Como não posso baixar seu anexo.

Teste ai..

private sub workbook_open()

[M7].FormulaLocal = Time()
[N7].FormulaLocal = Date

End sub
 
Postado : 13/01/2012 10:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre, valeu, deu certo, mas não esta atualizando a hora, e se for possível, deixar os segundos correndo com a hora do pc.

silva_jmp

 
Postado : 13/01/2012 12:30 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Tente assim...mas faça uma adaptação

Sub Atualizar()
Private Sub Worksheet_Change()
[M7].FormulaLocal = Time()
[N7].FormulaLocal = Date
End Sub
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:01"), " Atualizar"

End Sub
 
Postado : 13/01/2012 3:18 pm