Time capturing

[jai2808]

Hi,
I have a requirement where in i need to capture time taken by the user to enter the data in a cell.
For eg.,, if user starts entering data in A1 and if the text is Testing.
The moment he enter T, we need to capture the time and when he completes entering the test we need to capture one more time.

It should like like this.
A1 B1 C1
Testing 19/11/2008 07:45:44 19/11/2008 07:45:50

Can some one please help.


Thanks,
Jai

[rwgrietveld]

Is this what you are looking for? I would like to add the workbook, but can't (somehow) at the moment, so put this code in Worksheet1 (TAB, right click, view code, copy->paste
I've also made a validation list on A1, 'Testing, Stop Testing' and a Conditional format where =if(A1="Testing",1,0) makes cell A1 Green and =if(A1="Stop Testing",1,0) makes it Red. Sorry for the inconvenience.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim TimerStart As Date, TimerStop As Date

If Target.Address = "$A$1" Then
  Select Case Target
    Case "Stop Testing"
      TimerStop = Now()
      Range("C1") = TimerStop
      Range("D1") = TimerStop - TimerStart
    Case "Testing"
      TimerStart = Now()
      Range("B1") = TimerStart
    Case Else
  End Select
End If
End Sub