How do you write an "if' statement that will result in the pc system time.

Ex. IF cell A10, populate A2 with the system time that cell A1 was
populated.

You could write an IF statement using =NOW function but that will change
whenever calculation takes place.

You can use CTRL + SHIFT + ; to enter a static time.

Or event code to enter a static time.

The code below will enter a static time in column B when column A is populated
in the range of A1:A10

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
With Target
If .Value < "" Then
.Offset(0, 1).Value = Format(Now, "hh:mm:ss")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub

This is event code. Right-click on the sheet tab and "View Code".

Copy/paste the code into that sheet module.


Gord Dibben MS Excel MVP


On Tue, 1 May 2007 12:35:00 -0700, jstaggs
wrote:

How do you write an "if' statement that will result in the pc system time.

Ex. IF cell A10, populate A2 with the system time that cell A1 was
populated.

See

http://www.mcgimpsey.com/excel/timestamp.html

In article ,
jstaggs wrote:

How do you write an "if' statement that will result in the pc system time.

Ex. IF cell A10, populate A2 with the system time that cell A1 was
populated.