Today date

[ali zaib]

i want that when i enter a remarks in remarks column in next column show today date not change at next day

 

[Richard Schollar]

Hi

Right-click on the sheet name at the bottom of the screen and select View Code. Paste the following in there:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell As Range
Set rng = Intersect(Target, Range("A:A"))  'amend Range("A:A") to be whichever column holds your comments

If Not rng Is Nothing Then
    Application.EnableEvents = False
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            cell.Offset(, 1).Value = Date
        Else
            cell.Offset(, 1).ClearContents
        End If
    Next cell
    Application.EnableEvents = True
End If
End Sub

Amend the range in red to be whichever column holds your remarks.