ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Today() (https://www.excelbanter.com/excel-programming/284503-today.html)

Richard Toller[_2_]

Today()
 

I'm trying to get the current date entered automatically in a shee
that is used to record orders. One row is used for each order and th
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 entere
on previous days?

Appreciate any help on this one.
Thanks,
Ric

-----------------------------------------------
~~ 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

Bob Phillips[_6_]

Today()
 
Richard,

Just hit the Ctrl-; key?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Richard Toller" wrote in
message ...

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



Gord Dibben

Today()
 
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




All times are GMT +1. The time now is 11:49 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com