time tracker

hi,please help me with this:
im doing a real time tracker, if i click on the cell A1, cell C1 will display the status START and cell D1 will display the current time only and when i am done, i will click on cell B1 and cell C1 will display the status STOPPED and cell E1 will display the current time only and cell F1 will display the total time consumed from D1 and E1, and when i decide to continure my work i want F1 to be updated with the current time consumed.....how will do this?....please help me...i really need this to run....thanks so much

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "A1:B1"

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If .Column = 1 Then
Me.Cells(.Row, "C").Value = "START"
Me.Cells(.Row, "D").Value = Time
Me.Cells(.Row, "D").numberform = "hh:mm:ss"
Else
Me.Cells(.Row, "C").Value = "STOPPED"
Me.Cells(.Row, "E").Value = Time
Me.Cells(.Row, "E").numberform = "hh:mm:ss"
Me.Cells(.Row, "F").Value = Me.Cells(.Row, "F").Value + _
Me.Cells(.Row, "E").Value - Me.Cells(.Row, "D").Value
Me.Cells(.Row, "F").numberform = "hh:mm:ss"
End If
End With
End If
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"tweety127" <tweety127.2bz4qt_1154625010.6715@excelforum-nospam.com> wrote
in message news:tweety127.2bz4qt_1154625010.6715@excelforum-nospam.com...
>
> hi,please help me with this:
> im doing a real time tracker, if i click on the cell A1, cell C1 will
> display the status START and cell D1 will display the current time only
> and when i am done, i will click on cell B1 and cell C1 will display the
> status STOPPED and cell E1 will display the current time only and cell
> F1 will display the total time consumed from D1 and E1, and when i
> decide to continure my work i want F1 to be updated with the current
> time consumed.....how will do this?....please help me...i really need
> this to run....thanks so much
>
>
> --
> tweety127
> ------------------------------------------------------------------------
> tweety127's Profile:
http://www.excelforum.com/member.php...o&userid=34673
> View this thread: http://www.excelforum.com/showthread...hreadid=568006
>

i run the code and it worked but i encountered this error "run-time error 438" - Object doesn't support this property or method......thanks so much....

hi bob,
just a question...
why is it when i save the file containing the code you sent me and tried to open it again, the code doesn't work anymore....

Sounds like events may be turned off.

Try adding this to the end of the code

Application.EnableEvents = True

and also type that statement in the immediate window.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"tweety127" <tweety127.2bz9df_1154631008.3591@excelforum-nospam.com> wrote
in message news:tweety127.2bz9df_1154631008.3591@excelforum-nospam.com...
>
> hi bob,
> just a question...
> why is it when i save the file containing the code you sent me and
> tried to open it again, the code doesn't work anymore....
>
>
> --
> tweety127
> ------------------------------------------------------------------------
> tweety127's Profile:
http://www.excelforum.com/member.php...o&userid=34673
> View this thread: http://www.excelforum.com/showthread...hreadid=568006
>