help on start / stop problem

Hi all,

i have currently a userform which when a user click the start button time the time and date appears a1/b1 respectively.in c1 an activity appears.

When the user then clicks stop the end time date appears in d1/e1.

My question is, is it possible to press start and select an activity and then start another activity but the program still remembers when you press stop for a certain activity it remembers which start time to put the stop time to.

current is this

Private Sub ComboBox1_Change()
ComboBox1.AddItem "Setting up a new Bank"
ComboBox1.AddItem "New Account"
ComboBox1.AddItem "Change Account"
ComboBox1.AddItem "Close "
'do not hard code
End Sub


Private Sub CommandButton1_Click()


If CommandButton1.Caption = "Start" Then
CommandButton1.Caption = "Stop"
Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
Rng(1, 1).Value = Date
Rng(1, 2).Value = Time
Rng(1, 3).Value = ComboBox1
Else
CommandButton1.Caption = "Start"
Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
Rng(0, 4).Value = Date
Rng(0, 5).Value = Time


End If
End Sub


Private Sub CommandButton2_Click()
With Cells(65536, 4).End(xlUp).Offset(2, 1)
If IsEmpty(.Offset(0, -1)) Then
MsgBox "You forgot to push the Start Button first"
Else
.Value = Date
.Offset(0, 1).Value = Time
End If
End With
End Sub

Ok I have work on the code, so one button starts one stops.

My code needs to be able to start more than one task (i.e walking and talking) but when one stops or both do, the stop time will align back its start time.

I.e if you started walking at 1:00 and then started talking at 1:02, there would be two start times recorded (a1 and a2). if you then stopped walking at 1:03 and stopped talking at 1:04, the program would assign the correct stop time to the correct start time

Please ignore the old code.

Any help let me know

Private Sub CommandButton1_Click()
Dim Rng As Range
Set Rng = Cells(Rows.Count, "A").End(xlUp)(2, 1)
Rng(1, 1).Value = Date
Rng(1, 2).Value = Time
Rng(1, 3).Value = ComboBox1.Value

End Sub

Private Sub CommandButton2_Click()
Dim Rng As Range
Set Rng = Cells(Rows.Count, "A").End(xlUp)(1, 1)
Rng(1, 4).Value = Date
Rng(1, 5).Value = Time
End Sub

Yjoshi and Roy thankyou,

both are an amazing help.

Yjoshi would it be possible to then feed this info into a timesheet of sorts.

so each day you would start and stop events at the end of the day the info would go into a timesheet, i can send a copy of the timesheet im thinking of?

what do you think? im doing this to show activity based costing and the relationship with each person. so im now thinking during the day a user can click on each activity and then click a button at the end of the day that creates from a generic timesheet a daily timesheet/summary. maybe i should go on yahoo messenger?