Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 19
Default Date function to record changes within a row

Hello,
Is there any worksheet function available that will record the date when a
change is made to a specific row? For example, I have a worksheet tracking
several projects with cost, project manager, etc. Anytime there is a change
to one of those items, I would like the "Date Last Edited" column to update
in that row only. Can this be done?
Thanks.
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 10,124
Default Date function to record changes within a row

Right click sheet tabview codeinsert thismodify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 14 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "a") = Time '"Changed"
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"Kamran" wrote in message
...
Hello,
Is there any worksheet function available that will record the date when a
change is made to a specific row? For example, I have a worksheet
tracking
several projects with cost, project manager, etc. Anytime there is a
change
to one of those items, I would like the "Date Last Edited" column to
update
in that row only. Can this be done?
Thanks.



  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 22,906
Default Date function to record changes within a row

There is no reliable worksheet function to enter a static date other than to hit
CTRL + ;(semi-colon) for date or CTRL + SHIFT + ; to enter static time.

Here is code that will update Column F any time a change is made to cells in
columns A:E

Adjust to accommodate "etc."

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range("A:E"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
Cells(.Row, "F").ClearContents
Else
With .Offset(0, 1)
Cells(.Row, "F").Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub

This is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste the above into that sheet module.


Gord Dibben MS Excel MVP



On Tue, 27 Feb 2007 14:08:33 -0800, Kamran
wrote:

Hello,
Is there any worksheet function available that will record the date when a
change is made to a specific row? For example, I have a worksheet tracking
several projects with cost, project manager, etc. Anytime there is a change
to one of those items, I would like the "Date Last Edited" column to update
in that row only. Can this be done?
Thanks.


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Filling in today's date against every record Ernest Lai Excel Discussion (Misc queries) 4 January 29th 07 12:08 PM
Record date cell is inputted Marty Excel Discussion (Misc queries) 1 January 23rd 07 08:57 PM
Record the date after matching the names Tom Excel Discussion (Misc queries) 10 December 11th 06 09:38 PM
How can I count a record if it contains a date within a date range hile trotman Excel Worksheet Functions 0 September 20th 06 08:58 PM
identify first date a record appears mcarrington Excel Worksheet Functions 3 December 14th 05 09:08 PM


All times are GMT +1. The time now is 07:48 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"