Cell display is 38727.4101273148 Formula Bar is 1/10/2006 9:50

[Guest]

Excel 2003


I populate a cell with Now() (via the VBA line next)

With Sheets("Error Cells").Cells(Rows.count, 1).End(xlUp) _
(2, 1).Value = Now()

In the cell itself the display is: 38727.4101273148
even though the custom format assigned is: m/d/yyyy h:mm

Interestingly, the presentation in the Formula Bar is:
1/10/2006 9:50:35 AM which is exactly want I want in
the cell presentation; what am I doing wrong?

I have attempted to change the cell format to no avail.

Thanks

Dennis

 

[Ron Rosenfeld]

Excel 2003


I populate a cell with Now() (via the VBA line next)

With Sheets("Error Cells").Cells(Rows.count, 1).End(xlUp) _
(2, 1).Value = Now()

In the cell itself the display is: 38727.4101273148
even though the custom format assigned is: m/d/yyyy h:mm

Interestingly, the presentation in the Formula Bar is:
1/10/2006 9:50:35 AM which is exactly want I want in
the cell presentation; what am I doing wrong?

I have attempted to change the cell format to no avail.

Thanks

Dennis

From here it looks as if you are missing a "new line":

With Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
(2, 1)
.Value = Now()


end with
--ron

 

[Dave Peterson]

It sounds like you're looking at the formula view:

Tools|Options|View tab|Uncheck formulas

 

[Guest]

Absolutely Correct!

Amazing how line written months ago can haunt.

Thanks Dave