How to convert the system date value in to a cell of validated excel sheet

[Krishnamraju GVG]

How to convert the system date value in to a cell of validated excel sheet?

I want to develop a validated excel sheet ( which is used for automated calculations and cell protection) with date and time stamp.

A cell of the Excel sheet displays system date by the use of Now () or Today () function.

My aim is to save the displayed time by user consent (i.e after clicking a button etc.) and lock the date in to cell as data.

Once again the sheet is open it should display the locked data (user consent date)

Please provide either Macro (or ) any other alternative for the same.

Thanks in advance for your help.
Krishnamraju, GVG

 

[RayFrye]

Show us you have tried something and need help moving forward.
Your request basically wants someone to lay code for you. And you requirements are a little sketchy.

 

[Krishnamraju GVG]

Show us you have tried something and need help moving forward.
Your request basically wants someone to lay code for you. And you requirements are a little sketchy.

--------

Thanks Mr.RayFrye for your attempt to solve my problem.
I just want to create an excel sheet for a statistical calculation (for example Average of Six readings given by user). I have done it.
Now my purpose is to save System date as Activity date once user conforms (by choosing a mouse click on "Save" button ) after calculation.
Usually system date can be displayed by the use of Today () function.
Once saved the Activity date value should not change.
I think it is clear now.
Please give any suggestions.

 

[RayFrye]

Got it, I think. Copy the date and paste back as a value before the save.
If there is a date someplace.

     Range(WhereEverTheDateIsLocated).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

if there isn't a date.

Range(WhereEverTheDateIsLocated).Select

 

[RayFrye]

Got away from me before I finished:
If there isn't a date someplace

Range(A1).Value = Now()