updating VB script

[mwvirk]

as per below script, when there is value in cell I it will add current date in cell L and time in cell N
can someone pls update the following script so i can get the running clock starting from 00:00:00 in cell W

thnx

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim irow As Long
If Not Intersect(Target, Range("I:I")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
irow = Target.Row
'if there is a date in column L end the macro

If IsEmpty(Target) Then
Target.Offset(0, 3).ClearContents
Target.Offset(0, 5).ClearContents
GoTo EndProc
End If
If IsDate(Target.Offset(0, 3)) Then GoTo EndProc
Target.Offset(0, 3) = Date
Target.Offset(0, 5) = Time
End If
EndProc:
Application.EnableEvents = True
End Sub

 

[VoG]

To get a running clock you need to use the OnTime method. Example here http://www.mrexcel.com/forum/showthread.php?t=534628