Hi All
I want to keep trace some of cells in Row have been updated, the one
of column update as today and time ? Does formula can handle this ?

eg. A11 or B11 or C11 Updated, the D11 = today + time


moonhkt

Put this code in your worksheet module. To do this, right click the sheet
tab at the bottom of Excel, click View Code, then paste code below into the
sheet module. This code will put a time stamp in Col. D if any data is
changed in columns A, B, or C. Give it a try. Hope this helps! If so, let
me know, click "YES" below.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:C")) Is Nothing Then
Cells(Target.Row, "D") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
End If

End Sub

--
Cheers,
Ryan


"moonhk" wrote:

Hi All
I want to keep trace some of cells in Row have been updated, the one
of column update as today and time ? Does formula can handle this ?

eg. A11 or B11 or C11 Updated, the D11 = today + time


moonhkt
.

On 2月9日, 下�11時36分, Ryan H wrote:
Put this code in your worksheet module. Â*To do this, right click the sheet
tab at the bottom of Excel, click View Code, then paste code below into the
sheet module. Â*This code will put a time stamp in Col. D if any data is
changed in columns A, B, or C. Â*Give it a try. Â*Hope this helps! Â*If so, let
me know, click "YES" below.

Private Sub Worksheet_Change(ByVal Target As Range)

Â* Â* If Not Intersect(Target, Range("A:C")) Is Nothing Then
Â* Â* Â* Â* Cells(Target.Row, "D") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
Â* Â* End If

End Sub

--
Cheers,
Ryan



"moonhk" wrote:
Hi All
I want to keep trace some of cells in Row have been updated, the one
of column update as today and time ? Does formula can handle this ?

eg. A11 or B11 or C11 Updated, the D11 = today + time

moonhkt
.- éš±è—�被引用文å*— -

- 顯示被引用文å*— -

Thank. It works. Does formula can handle this ?

A worksheet formula can handle it but you must use circular references.

See John McGimpsey's site.

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


Gord Dibben MS Excel MVP

On Tue, 9 Feb 2010 16:57:55 -0800 (PST), moonhk wrote:

On 2?9?, ??11?36?, Ryan H wrote:
Put this code in your worksheet module. *To do this, right click the sheet
tab at the bottom of Excel, click View Code, then paste code below into the
sheet module. *This code will put a time stamp in Col. D if any data is
changed in columns A, B, or C. *Give it a try. *Hope this helps! *If so, let
me know, click "YES" below.

Private Sub Worksheet_Change(ByVal Target As Range)

* * If Not Intersect(Target, Range("A:C")) Is Nothing Then
* * * * Cells(Target.Row, "D") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
* * End If

End Sub

--
Cheers,
Ryan



"moonhk" wrote:
Hi All
I want to keep trace some of cells in Row have been updated, the one
of column update as today and time ? Does formula can handle this ?

eg. A11 or B11 or C11 Updated, the D11 = today + time

moonhkt
.- ??????? -

- ??????? -

Thank. It works. Does formula can handle this ?

On 2月11日, 上�1時14分, Gord Dibben <gorddibbATshawDOTca wrote:
A worksheet formula can handle it but you must use circular references.

See John McGimpsey's site.

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

Gord Dibben Â*MS Excel MVP



On Tue, 9 Feb 2010 16:57:55 -0800 (PST), moonhk wrote:
On 2?9?, ??11?36?, Ryan H wrote:
Put this code in your worksheet module. Â*To do this, right click the sheet
tab at the bottom of Excel, click View Code, then paste code below into the
sheet module. Â*This code will put a time stamp in Col. D if any data is
changed in columns A, B, or C. Â*Give it a try. Â*Hope this helps! Â*If so, let
me know, click "YES" below.

Private Sub Worksheet_Change(ByVal Target As Range)

Â* Â* If Not Intersect(Target, Range("A:C")) Is Nothing Then
Â* Â* Â* Â* Cells(Target.Row, "D") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
Â* Â* End If

End Sub

--
Cheers,
Ryan

"moonhk" wrote:
Hi All
I want to keep trace some of cells in Row have been updated, the one
of column update as today and time ? Does formula can handle this ?

eg. A11 or B11 or C11 Updated, the D11 = today + time

moonhkt
.- ??????? -

- ??????? -

Thank. It works. Does formula can handle this ?- éš±è—�被引用文å*— -

- 顯示被引用文å*— -

Thank for your information.

Also for event macro, how to check some column update or not

Not work
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:B", "G:H")) Is Nothing Then

Cells(Target.Row, "AB") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
End If

End Sub

Work, But need to input or
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:C")) Is Nothing Or Not
Intersect(Target, Range("G:H")) Is Nothing Then

Cells(Target.Row, "M") = Format(Now, "mm/dd/yyyy - hh:mm:ss")
End If

End Sub