How to get a date stamp whenever a value is changed?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi everybody

The problem is as follows:
I need to get a date stamp in a columns b-g everytime my workbook is saved
with a new value in column A. In column A I have made a picklist with seven
different values, and I want to get a date stamp everytime the status of
culumn A is changed. Is there any way I can do this?

Any help would be greatly appreciated!

Kind regards,
Tue
 
Right click on the worksheet tab that you want to check and select VIEW CODE.
Paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myWS As Worksheet
Set myWS = Target.Parent

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
myWS.Cells(Target.Row, 2).Value = Date + Time 'Change 2 to the column
you need A=1, B=2, C=3 etc.
End If

End Sub

HTH,
Barb Reinhardt
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top