-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Tracking log
- Thread starter gdspeare
- Start date
The only way I could think of would be to go to tools, Track Changes.
This will share your workbook and anyone editing including you will be tracked you can then have all the changes listed on a new worksheet. I hope this is of some use.
Thanks,
David_UK
This will share your workbook and anyone editing including you will be tracked you can then have all the changes listed on a new worksheet. I hope this is of some use.
Thanks,
David_UK
Upvote
0
Andrew Poulsom
MrExcel MVP
- Joined
- Jul 21, 2002
- Messages
- 73,092
Insert a worksheet and name it Track. Put Old, New and When in cells A1, B1 and C1 respectively.
Activate the sheet whose changes you want to track, right click the sheet tab and choose View Code. Paste this code into the window on the right:
Change the reference to "$A$1" to the cell you want to monitor. Press Alt+F11 to return to your worksheet. Try it out by making some changes to the cell.
Activate the sheet whose changes you want to track, right click the sheet tab and choose View Code. Paste this code into the window on the right:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewVal As Variant
Dim OldVal As Variant
Dim Rng As Range
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
NewVal = Target.Value
Application.Undo
OldVal = Target.Value
Target.Value = NewVal
With Worksheets("Track")
Set Rng = .Range("A65536").End(xlUp).Offset(1, 0)
With Rng
.Value = OldVal
.Offset(0, 1).Value = NewVal
.Offset(0, 2).Value = Now
.Offset(0, 2).NumberFormat = "dd/mm/yy hh:mm:ss"
End With
End With
Application.EnableEvents = True
End SubChange the reference to "$A$1" to the cell you want to monitor. Press Alt+F11 to return to your worksheet. Try it out by making some changes to the cell.
Upvote
0
Similar threads
- Question
