Timestamp in cell if other cell is updated.

[amitdelpanwar]

	A	B	C
1	DATA	current timestamp ?
2
3
4

<tbody>
</tbody>

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/