View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default if then statement = time

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.