Date Stamping a value.

[wudhus_kid]

Is there any way of the date of entry of a value being entered into a cell?

So, for example, if I enter a value into cell A1 on 1st July 2007, the worksheet automatically enters 01/07/2007 into cell A2.

Any help on this matter would be much appreciated.

Many Thanks.

 

[Lewiy]

Right-click the worksheet tab and select “view code”. Paste this into the window that opens and then close the window down again:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Target.Offset(1, 0) = Date
End If
End Sub

This will put the date in row 2 every time a value is entered in row 1.

 

[Paddy1979]

Hi paste this into the worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    
Dim rng As Range
Set rng = Range("A:A")
 
 If Target.Count > 1 Then Exit Sub
   If Intersect(Target, rng) Is Nothing Then Exit Sub
            
   ActiveCell.Offset(-1, 1).Value = Date
   
            
End Sub

Ah, beaten to it !