a code to add altering time to cells

tesoke · #1 11-18-2015, 02:15 AM

Hi, I do not know anything about codes and writing them in Excel. I need some code that will track a range of cells and whenever a cell is altered the date is automatically added to the cell comment box. With the result that each comment box will have a list of dates that shows when changes have been made to the cell.

Your assistance is greatly appreciated.

charlesdh · #2 11-21-2015, 12:38 PM

HI,

Check this bit of code that I found. It may help you.
This code looks for changed data in column 5 row 5.
Should you need more help let us know.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 5 Then Exit Sub  'D.McR 2001-11-02 worksheet.functions
   If Target.Row <> 5 Then Exit Sub
      Dim ccc As String
   ccc = Format(Date + Time, "mm/dd/yy hh:mm") _
      & " " & Target.Value  ' -- Application.UserName
   If Target.Comment Is Nothing Then
      Target.AddComment.Text ccc
   Else
      Target.Comment.Text (Target.Comment.Text & Chr(10) & ccc)
   End If
   Target.Comment.Shape.TextFrame.AutoSize = True
End Sub

tesoke · #3 12-13-2015, 10:53 PM

Thanks a lot. Bless you.

charlesdh · #4 12-17-2015, 12:31 PM

Hi,

Thanks!

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Code that will run when a cells value is changed.	DonJohns1	Excel Programming	2	04-15-2015 10:48 AM
Code to disable spacing between cells in table properties	bloomhaven	Word VBA	3	03-11-2015 04:08 PM
To me the code on the youtube tutorial looks the same as mine but a I get a run-time	chrisd2000	Excel Programming	1	07-02-2014 11:23 AM
Unlocking cells with VB code in excel 2003	tadleymansions	Excel	1	01-18-2013 06:55 AM
How to get cells to calculate time?	jrasche2003@yahoo.com	Excel	2	02-09-2007 07:10 AM