EXCELer Tudo sobre EXCEL em Português
Para colocar a data corrente (ou outra) numa determinada célula, podemos utilizar um pouco de VBA:
O Código:
Sub Colocar_Data()
Dim Ops(1 To 3) As String
Dim Msg As String
Ops(1) = Day(Date)
Ops(2) = Month(Date)
Ops(3) = Year(Date)
Msg = Ops(3) & "-" & Ops(2) & "-" & Ops(1)
Range("C1").Select
Application.Cursor = xlNormal
ActiveCell.FormulaR1C1 = InputBox(Prompt:="Colocar Data (aaaa-mm-dd):", _
Title:="Date", Default:=Msg)
End Sub
NOTA: Por defeito, a InputBox contém a data do dia [Default:=Msg]