Inserting current date

[pdaws]

Hi,

When cell b25 is populated by a macro, I would like for cell d25 to
automatically enter the current date based on the population of cell b25. I
would also like for that date to remain constant and not change when someone
opens the form. Is it possible to create a macro to perform this function or
is there a formula that I can put in cell d25?

Thanks for your help.

 

[Mike H]

Hi,

If b25 updates with a macro then the same code should be used to populate
d25 like this

Range("B25").Value = "Somevalue"
Range("D25").Value = Date

Mike

 

[HARSHAWARDHAN. S .SHASTRI]

Hi Pdaws,

As you have already macro to populate cell b25 ,edit that macro with
adding following statement.
Range("d25").FormulaR1C1 = "=TODAY()"
Range("d25").Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False


H S Shastri

India

===========================================================

 

[Peo Sjoblom]

http://www.mcgimpsey.com/excel/timestamp.html

--


Regards,


Peo Sjoblom

 

[pdaws]

Thank you HS Shastri,

I used the code and it did populate the current date however I received the
following error message - run time error '438' "Object doesn't support this
property or method". I put the code you gave me at the end of the current
macro. Also the "Selection.PasteSpecial Paste:=xlPasteValues" part of the
code was highlighted in yellow. How do I fix this error?

 

[pdaws]

Thank you Mike. I tried the code and it worked. One other question, will
the date remain constant and not change when the form is opened tomorrow?

 

[Mike H]

Hi,

the date won't change.

Mike

Thank you Mike. I tried the code and it worked. One other question, will
the date remain constant and not change when the form is opened tomorrow?

 

[pdaws]

Thanks Mike,

One other issue. I receive the following error message when I protect the
form - Run time error '1004' Unable to set the text property of the
characters class.

 

[Gord Dibben]

The date will be static until you run the macro tomorrow at which time it
will update.

If you want D25 to remain static you must code for that

If Range"B25").Value = "Somevalue" Then
Range("D25") = Format(Date, "mm/dd/yyy")

Or did you mean datestamp if "any" value is in B25?

In that case Mike's code will do it for you..


Gord Dibben MS Excel MVP