Date of last row formatted

**Xx7** · 02-13-2011, 04:39 PM

I have rows of info. I want to create a date at the end of each row showing the last time info was altered in the specific row in the cells of columns A, B, or D.

**shg** · 02-13-2011, 04:45 PM

Search the forum for date stamp for many, many examples.

**Xx7** · 02-13-2011, 06:14 PM

Thx... found what i'm looking for below

 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        With Target
            If .Count > 1 Then Exit Sub
            
            
            If Not Intersect(Range("A5:A2000"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 7).ClearContents
                Else
                    With .Offset(0, 7)
                        .NumberFormat = "dd mmm yyyy"
                        .Value = Date
                    End With
                End If
                Application.EnableEvents = True
            End If
            
            If Not Intersect(Range("b5:b2000"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 6).ClearContents
                Else
                    With .Offset(0, 6)
                        .NumberFormat = "dd mmm yyyy"
                        .Value = Date
                    End With
                End If
                Application.EnableEvents = True
            End If
            
            
            
        End With
    End Sub