Inserting Dates

J

JDay

If I enter anything in cell A1, I want the date automatically entered into
cell A2. How can I do this??
 
F

FSt1

hi,
put this in a this workbook module
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1") = "" Then
Exit Sub
Else
Range("A1").Offset(0, 1) = Date
End If
End Sub
regards
FSt1
 
D

David Biddulph

JDay said:
If I enter anything in cell A1, I want the date automatically entered into
cell A2. How can I do this??
Click to expand...

=IF(A1<>"",TODAY(),""), and format as Date.
 
Top