Put date and time in cell

[amna77]

Hi, On my spread sheet, I have 2 cells, in cell A1, people enter names in there, and in cell A2, date and time should come up.
so basacilly what I want to do is, when ever person enters name in the cell A1, then in cell A2, I want to place current date and time.
Is it possible.
Thanks in advance

 

[s-o-s]

On 2002-10-23 08:20, amna77 wrote:
Hi, On my spread sheet, I have 2 cells, in cell A1, people enter names in there, and in cell A2, date and time should come up.
so basacilly what I want to do is, when ever person enters name in the cell A1, then in cell A2, I want to place current date and time.
Is it possible.
Thanks in advance

This is possible using the sheetchange event...

In the ThisWorkbook module paste the following code.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 1 Then
    rw = Target.Row - 1
    Range("B1").Offset(rw, 0).Value = Format(Now(), "dd/mm/yy hh:mm")
End If
End Sub

 

[Barry Katcher]

In cell A2, enter the following formula:

=IF(A1>0,TODAY(),"")

(If the entry in cell A1 is greater than zero, place today's date in cell A2, else, nothing.)

Then, format cell A2 to whatever date/time format you want.

 

[Barry Katcher]

Oops! Use NOW() instead of TODAY().