Timestamp in cell if other cell is updated.

[amitdelpanwar]

[TABLE="width: 500"]
<tbody>[TR]
[TD="align: center"][/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]DATA[/TD]
[TD]current timestamp ?[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Kindly help to auto insert current timestamp in Cell B1 when cell A1 is modified. worksheet is shared with 4 users and all users enter data on it.

 

[Joe4]

Right-click on the sheet tab name at the bottom of the screen that you want to update, select "View Code", and paste this code in the resulting VB Editor window:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Target, Range("A:A"))
    
    If Not rng Is Nothing Then
        For Each cell In rng
            Application.EnableEvents = False
            cell.Offset(0, 1) = Now()
            Application.EnableEvents = True
        Next cell
    End If
    
End Sub

This should do what you want automatically.

 

[amitdelpanwar]

Thanks Joe 4 replying.

As I already told that this excel(xlxs) file is shared between 4 users and they update this file at same time. But after this code I have to save this file in "XLXM" format. Because of this others user will not able to update at same time.

 

[Joe4]

Then the only other way I think is to try to incorporate this method here: http://www.howtoexcelatexcel.com/excel-tips-tricks/create-a-timestamp-in-excel-with-formulas/