date stamping

paspoard · Mar 4th 2003

I need to automatically enter a date into a purchase order form when the blank template is initially opened. But, I need that date to stay as the date the purchase order was then completed not the current date, so this makes the NOW function of no use as it will always return todays date!!!
Please help I'm getting bald patches where I'm tearing my hair out!!

the_sleeper · Mar 4th 2003

paspoard,

You could write a macro that pastes the value and overwirtes the formula when the workbook is closed??

So say if the formula =NOW() is in A1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Copy
Range("A1").PasteSpecial Paste:=xlValues
End Sub

Rennie · Mar 5th 2003

If you want to automatically enter a date into the template, you might need to also use.

Sub Auto_Open()
Worksheets("Sheet1").Range("A1").Formula = Now()
End Sub

Hope this helps.
Rennie

date stamping

Participate now!

Share