Hello,
I am using a sheet in which people electronically sign. They type in their
name in A1 and then A2 has the formula =IF(A1="","",TODAY()). The sheet
could have many signatures and dates. The problem is that the date on all
signatures change to what the date is when the sheet is opened. Is there a
better formula to use? Thanks,
Mike

See

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

--


Regards,

Peo Sjoblom


"Mike R." wrote in message
...
Hello,
I am using a sheet in which people electronically sign. They type in
their
name in A1 and then A2 has the formula =IF(A1="","",TODAY()). The sheet
could have many signatures and dates. The problem is that the date on all
signatures change to what the date is when the sheet is opened. Is there
a
better formula to use? Thanks,
Mike

That's not a "problem" that a "feature." All functions, by their very
design, SHOULD resolve to the current value. For TODAY() and NOW() the
current value is whatever the date and time is *now*.

Ctrl-semicolon puts the current date in the cell having focus as a
static value.

I haven't examined the answer the above poster gave, but what you need
is probably a macro linked to a button that the user can click that
will put the static date into the field you indicated.


--
nbrcrunch

Mike,

Put the following code into the Sheet Object

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(, 1) = Format(Now(), "mm/dd/yyyy")
End If


End Sub

Anytime an entry is made into Column A, it will add today's date
automatically in Column B

http://HelpExcel.com


"Mike R." wrote:

Hello,
I am using a sheet in which people electronically sign. They type in their
name in A1 and then A2 has the formula =IF(A1="","",TODAY()). The sheet
could have many signatures and dates. The problem is that the date on all
signatures change to what the date is when the sheet is opened. Is there a
better formula to use? Thanks,
Mike

Be aware that the code proposed below does have problems:

Here are just two of issues:
1. If you highlight within any row, cells A & B and press delete,
you'll get the date in column C.
2. If you attempt to delete a whole row, you'll get a runtime error
from VBA.


galimi Wrote:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(, 1) = Format(Now(), "mm/dd/yyyy")
End If


End Sub




--
nbrcrunch