Dear Reddy

Assuming you have the headers in row1; the below code should work as per
your requirement.

Right click on the sheet tabView CodePaste the below code .Save and get
back to the worksheet and try out...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Trim(Target.Value) < "" Then
If Target.Row 2 Then Range("C" & Target.Row - 1) = Time()
Range("b" & Target.Row) = Time()
End If
End If
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Igneshwara reddy" wrote:

Hi,

I have 9 members working on a project and require to track the timings for
all.

There are 6 columns in the spreadsheet.

column 1 contains the type of activity.
Column 2 contains the activity start time
Column 3 contains the activity end time.

I have to ensure the time is tracken completely without their intervention
in updating the timings.

When they select column 1 first row (type of activity) the Start time should
automatically update in Column 2 and when they select the column 1 again in
the second row the type of activity, the start time should update in column 2
second row and also the completion time in column 3 first row.

Example:
Column 1 Column 2 Column 3
Activity 1 05:38 06:37
Activity 2 06:37 08:45
Activity 3 08:45

This is how I am looking the tracker to be.

Please help me out in getting the tracker completely.

Regards,
Igneshwara Reddy.