Re: Auto Date and Time?

[kl2190]

Re: Auto Date and Time?

Private Sub Worksheet_Change(ByVal Target As Range)
' Automatically adds date and time

If Target.Column = 5 Then
Target.Offset(0, 5).Value = Date
End If
End Sub

sorry to drag this one back up. The above works great. how can i modify the code so that it only fills in the date when certain text ("COMPLETED") is entered into the specified column? much appreciated.

 

[wigi]

Re: Auto Date and Time?

Do you understand what the macro is doing? Because this is only a minor change to the above:

Private Sub Worksheet_Change(ByVal Target As Range)
' Automatically adds date and time

If Target.Column = 5 And Target.Value = "COMPLETED" Then
   Target.Offset(0, 5).Value = Date
End If
End Sub

You will want to add a line of code that checks whether 1 or more cells were changed. Because in the latter case, Target.Column and Target.Value will yield errors.