time tracker - please help

[tweety127]

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

 

[Bob Phillips]

'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]

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....

 

[tweety127]

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....

 

[Bob Phillips]

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)