I want to use a macro to put in date time in a cell with microseconds.

I've tried Range("a1").Value = Format(Now, " dd-mm-yyyy hh.mm.ss.
000")

which doesn't work for the milliseconds.

If I enter =now() in a cell manually and use custom format dd/mm/yyyy
hh:mm:ss:000 it works.


Any suggestions please?

I want to create a unique date time reference in each row and thought
I'd use a time date function.

Thanks.

Dim d As Double
d = Evaluate("Now()")
Range("A1") = d

format A1 in the worksheet or in VBA to match your reqs.
--
Gary''s Student - gsnu200753

Option Explicit
Sub testme()
With ActiveSheet.Range("A1")
.NumberFormat = "mm/dd/yyyy hh:mm:ss.000"
.Formula = "=now()"
.Value2 = .Value2
End With
End Sub



ian wrote:

I want to use a macro to put in date time in a cell with microseconds.

I've tried Range("a1").Value = Format(Now, " dd-mm-yyyy hh.mm.ss.
000")

which doesn't work for the milliseconds.

If I enter =now() in a cell manually and use custom format dd/mm/yyyy
hh:mm:ss:000 it works.

Any suggestions please?

I want to create a unique date time reference in each row and thought
I'd use a time date function.

Thanks.

--

Dave Peterson

I want to use a macro to put in date time in a cell with microseconds.

Another option...

Sub Demo()
[A1] = [TEXT(NOW(),"dd-mm-yyyy hh.mm.ss.000")]
End Sub

--
Dana DeLouis


"ian" wrote in message
ups.com...
I want to use a macro to put in date time in a cell with microseconds.

I've tried Range("a1").Value = Format(Now, " dd-mm-yyyy hh.mm.ss.
000")

which doesn't work for the milliseconds.

If I enter =now() in a cell manually and use custom format dd/mm/yyyy
hh:mm:ss:000 it works.


Any suggestions please?

I want to create a unique date time reference in each row and thought
I'd use a time date function.

Thanks.

Micro or milli ?

Tim

"ian" wrote in message
ups.com...
I want to use a macro to put in date time in a cell with microseconds.

I've tried Range("a1").Value = Format(Now, " dd-mm-yyyy hh.mm.ss.
000")

which doesn't work for the milliseconds.

If I enter =now() in a cell manually and use custom format dd/mm/yyyy
hh:mm:ss:000 it works.


Any suggestions please?

I want to create a unique date time reference in each row and thought
I'd use a time date function.

Thanks.

Thanks

I used Dave's method. The answer is rounded to the nearest 10 milli-
seconds.

Yes Tim, I made a mistake in the question, milli-seconds is fine,

Ian