current date and time

[hoomantt]

hi dear professors;
i have a vb code in my file that when a user click on a shape that code runs.
i need a vb code or a formula that when that user click on that shape and run that code , input current date in a cell and input current time in an other cell .
please help me!!!
Thanks a lot

 

[Somendra Misra]

Hi hoomantt,

Try below code:

Sub enterDateandTime()

Dim CurrentDate As Date
Dim Idate As Date
Dim Itime As Long

CurrentDate = Now
Idate = Int(CurrentDate)
Itime = CurrentDate - Idate

Range("A1") = Idate
Range("B1") = Format(Itime, "hh:mm:ss")

End Sub

Regards,

 

[Deepak]

Just add these two lines in your vb code!!!

Sheet2.[A1] = Date 'Change Range
Sheet2.[B1] = Format(Now, "hh:mm:ss") 'Change Range

 

[Marc L]

Hi !

Just one line to add : [A1:B1].Value = Array(Date, Time) …
​