problemas com datas...
 
Notifications
Clear all

problemas com datas!

2 Posts
2 Usuários
0 Reactions
789 Visualizações
 rmsp
(@rmsp)
Posts: 1
New Member
Topic starter
 

Boas!!
Estou com um problema com as datas que não consigo resolver.
Depois de tudo feito, apercebi-me agora que a data que aparece até ao dia 12 me aparece trocada, ou seja, em vez de dd-mm-yyyy, aparece-me mm-dd-yyyy...
Eu apenas quero que apareça sempre dd-mm-yyyy, alguém pode ajudar?
Confesso que não sou grande entendido nisto.
O que eu tenho defenido para me dar a data automáticamente é:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Date & " " & Time
End If
End Sub

Cumprimentos

 
Postado : 04/06/2014 7:07 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 2).Value = CDate(Date & " " & Time)
End If
End Sub

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

 
Postado : 04/06/2014 12:09 pm