Using an If statement with the TODAY function

[MR VEB]

Hello all,
I hope you can help me. I have a spread sheet set up and I record when documents are returned to me. When I put the word "returned" in a cell , I'd like the date the document was received to be posted into the adjacent cell on the spread sheet.

Thanks

MR VEB

 

[mart37]

put into the adjacent cell: =today()
copy that cell
and on the same cell --> paste special as value

 

[SteveO59L]

a coded solution

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = "Returned" Then
Target.Offset(0, 1) = Date
End If
End Sub

 

[Scott T]

This requires VBA to do it automatically.

Something like this should work.
Right click on the tab of your sheet and select view code
Past the code below into the VBA editor.
The file will need to be saved as .xlsm as .xlsx does not allow macros
You will need to change the ranges to match your data.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C:C")) Is Nothing And LCase(Target) = "return" Then
    myrow = Target.Row
    Range("D" & myrow) = Date
End If
End Sub