VBA Time Stamp When Cell Changes.

[alexfooty]

Quite simply, if the value in cell I13 in a worksheet changes I would like a date & time stamp to appear in cell M8 which updates every time cell I13 changes.
Many thanks and Merry Christmas to you all.

 

[eduzs]

This should be in the corresponding worksheet module, not in any other module or in ThisWorkbook.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I13")) Is Nothing Then ActiveSheet.Range("M8") = Format(Now, "d/m/yyyy HH:MM:SS")
End Sub

 

[alexfooty]

Thanks eduzs but for some reason this is not working. The value in cell I13 is changed as a result of running a seperate macro but I wouldn't think that would have caused your macro to fail. I'm reuctant to upload an image unfortunately as the sheet is a personal medical worksheet. I'm at a loss as to why your macro doesn't work. Any ideas?

 

[eduzs]

Where did you include the code?

 

[alexfooty]

Right click on the sheet tab - View code - and pasted it there

 

[eduzs]

If you call the sub from elsewhere, is better to specify the target worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oSht As Worksheet
Set oSht = Sheets("targetworksheetname")
If Not Intersect(Target, oSht.Range("I13")) Is Nothing Then oSht.Range("M8") = "'" & Format(Now, "d/m/yyyy HH:MM:SS")
Set oSht = Nothing
End Sub

 

[Fluff]

The value in cell I13 is changed as a result of running a seperate macro

In that case why not just change your existing macro to add the time stamp?

 

[alexfooty]

Now getting a bit complicated for me... here is a cropped image of the area I'm working with...

Cell G13 (Click=1 Use) runs a macro that increases cell I13 by "1". Each time cell I13 changes I need the time stamp to appear in cell M8. Unfortunately nothing is happening.
I am not technically minded so please bear in ming when answering. I just try to learn things in VBA as I go along.

 

[eduzs]

As Fluff said, why not use the first macro to add the cell stamp to the M8?
If you do not manually change the I13 value, I suppose that a separate macro is not required to do this.
Just insert at the end of the macro something like:

oSht.Range("M8") = "'" & Format(Now, "d/m/yyyy HH:MM:SS")

Is there any "Application.EnableEvents = False" in your vba code?

 

[Fluff]

What is your existing macro?