Boa noite!!!
Este exemplo te ajuda..caso contraerio poste sua planilha modelo..
Sub ss1()
'As constants the following will not update
[a1] = Int(Now) 'date
[a2] = Now 'date and time
[a3] = Date 'date
[a4] = Date + Time 'same as now
'As Worksheet Functions the following will update
[a5] = "=Today()" 'current date into worksheet formula
[a6] = "=now()" 'current date
[a7] = "=now() - Today()" 'current time when recalculated
[a7].NumberFormat = "hh:mm"
[a8] = "=MOD(NOW(),1)" 'current time when recalculated
[a8].NumberFormat = "hh:mm"
End Sub
- Código:
-