Time stamp when you update a message or a checkbox on an excel sheet

**jg_2k** · 06-11-2013, 02:17 PM

Hello, i do appreciate any assistance. This is for my work to help make my job a little easier. i have accounts that i view and manage on a monthly bases and i need to keep track if i talk to them or send them a message or a document. this is the reason i wanted to create a macro (or vba not sure if is the same thing or not) so excel can do this automatically when ever i change something on that row.
I have 2 check boxes and a note section (where i place my notes) and and the end of every row that is where i want to place the time stamp. This way as the days pass by i will know when i went into that file.
the vba macro i have and seams to work when ever i update the note section is:

Please Login or Register  to view this content.

but i need how to add the part when i update the check boxes and how to compile it all together. Please help me am not sure if is it at all possible. and thanks in advance

**ARGK** · 06-12-2013, 07:28 AM

Hi
You can use this formula to create time stamps in Column A for example.
=IF(C2<>"",IF(B2="",NOW(),B2),"")
Put this formula in Cell A2 and copy down as far as you need.
You need to leave column B blank.
You can change "C2" in the formula to the column you want to activate time stamps for.
Hope this helps.
Good luck.
Tony

**jg_2k** · 06-12-2013, 10:59 AM

Hi tony Thank you for your reply. (i have uploaded an image) on my sheet for every row i have the 2 check boxes and the note section (both are in yellow) and i want to place a time stamp (in green) whenever i check a box or place/update the note section. Thanks again.

test.JPG

**ARGK** · 06-13-2013, 06:17 AM

Hi
OK, right click on the tab where you want the Time Stamps to appear and paste the following code onto that sheet and close it to return to excel.
Also you will need to move the notes tab one column to the left so that the columns you are monitoring are E, F and G.
This code comes from Mike H from a different site from a couple of years ago so I cant take the credit for the code. All I have done is change the range being monitored.
Hope this helps.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Columns("E:G")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
Cells(Target.Row, 9) = Now
Cells(Target.Row, 9).EntireColumn.AutoFit
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub

Good luck.
Tony