VBA for Timestamp

**ercedwards** · 11-30-2013, 02:29 AM

I want to put a timestamp NOW() in cell J2 ONLY when a user changes the value in cells C1:I1 (these are merged cells)

Any ideas?

Thanks much

**madAlchemist** · 11-30-2013, 03:03 AM

use the worksheet_change event:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, ActiveSheet.Range("c1:i1")) Is Nothing) Then
        Application.EnableEvents = False
            ActiveSheet.Range("j2") = Now()
        Application.EnableEvents = True
    End If
End Sub

**MarvinP** · 11-30-2013, 03:11 AM

Hi ercedwards and welcome to the forum,

This takes event code that is behind the worksheet itself, not in a module. The code looks like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1:I1")) Is Nothing Then
        Cells(1, "J") = Time
    End If
End Sub

This is a starter as you will most likely want to build on the above. Here is also the workbook to try it out.