a code to add altering time to cells

charlesdh · #1 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

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