Adding Timestamp that updates automatically when data is changed

[mmcquinn2002]

Hi there,

I have a data sheet which contains row wise data of groups in Columns B to K. I would like to add a Timestamp for every row in Column L which updates automatically even if a single column in the row is updated. By the way, the data is updated manually.



Thanks in advance.

 

[gordsky]

Your request isnt entirely clear but think you could achieve what you are after through a worksheet change event

Private Sub Worksheet_Change(ByVal Target As range)
If Not Application.Intersect(Target, ActiveSheet.Range("B:K")) Is Nothing Then
    Range("L" & Target.row) = Now()
End If
End Sub

 

[mmcquinn2002]

Your request isnt entirely clear but think you could achieve what you are after through a worksheet change event

Private Sub Worksheet_Change(ByVal Target As range)
If Not Application.Intersect(Target, ActiveSheet.Range("B:K")) Is Nothing Then
    Range("L" & Target.row) = Now()
End If
End Sub

Thanks for your reply.

Simply put,
I have a set of data for a number of groups which is entered manually in the corresponding columns (Column B to Column K).
Each row represents and contain data for a single group.

What i would like to do is to I would like to add a Timestamp for every row in Column L which updates automatically even if a single column in the particular row is updated.

For example,

1. Row 1 contains data for Group1, which is entered in Columns B to Column K and Row 2 contains data for Group 2 and so on.
2. Data for Group1 is entered in Cells A1 to K1 and data for Group 2 is entered in Cells A2 to K2.
3. So for Group 1 i would like to have a Timestamp in cell L1 if data in any cell, i.e., in any of A1 to K1, is changed, and similarly for Group 2 if any data in cells A2 to K2 is changed.

 

[gordsky]

Thanks for your reply.

Simply put,
I have a set of data for a number of groups which is entered manually in the corresponding columns (Column B to Column K).
Each row represents and contain data for a single group.

What i would like to do is to I would like to add a Timestamp for every row in Column L which updates automatically even if a single column in the particular row is updated.

For example,

1. Row 1 contains data for Group1, which is entered in Columns B to Column K and Row 2 contains data for Group 2 and so on.
2. Data for Group1 is entered in Cells A1 to K1 and data for Group 2 is entered in Cells A2 to K2.
3. So for Group 1 i would like to have a Timestamp in cell L1 if data in any cell, i.e., in any of A1 to K1, is changed, and similarly for Group 2 if any data in cells A2 to K2 is changed.

the code i supplied will do that. As you did not mention column A in your origional post it was written for the range you specified.
Just change the

If Not Application.Intersect(Target, ActiveSheet.Range("B:K")) Is Nothing Then

to

If Not Application.Intersect(Target, ActiveSheet.Range("A:K")) Is Nothing Then

you need to make sure the code is placed in the sheet code and not a module