Richard

Automatic = VBA

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col I
On Error GoTo enditall
If Target.Cells.Column < 10 Then
n = Target.Row
If Excel.Range("I" & n).Value < "" Then
Excel.Range("J" & n).Value = Now
End If
End If
enditall:
End Sub

The code assumes that cell in column I would be last cell to be filled when
doing up orders. Adjust to suit.

To use, right-click on sheet tab and "View code". Copy/paste code in there.

Gord Dibben XL2002

On Thu, 4 Dec 2003 15:44:34 -0600, Richard Toller
wrote:


I'm trying to get the current date entered automatically in a sheet
that is used to record orders. One row is used for each order and the
current date is required in column J for each order.

Is there any way to use TODAY() Function, so that it records
today's date via formula, but does not change the order dates entered
on previous days?

Appreciate any help on this one.
Thanks,
Rich


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements