Cross Country Timing Issue - VBA/Macros

[CycloneSteve]

Hi there,

Needing some help with a spreadsheet which is principally designed to record Cross Country runners and tally up the points. I have attempted to integrate a timing feature into the Spreadsheet which by the user clicks on one button in the Score sheet which then records the time at the time of the click (when the race starts). Then as runners cross the line, another button is clicked to record the time they finished and then calculates their finishing time based on the start time and time when the button is clicked. I've copied the code from another spreadsheet but I think I have messed it up as the finishing time ends up in the wrong place. Can I please get some assistance in fixing it. I also would like to use a "hotkey" such as the Caps Lock key on the keyboard to make it easier than having to click on the button each time. I'm quite a noob when it comes to VBA and Macros so I would very much appreciate the help.

Can't use the XL2BB Add-on so posting a link to down the spreadsheet. CC2.xls

Please ask any questions you may need to clarify the problem.

Thanks!!

 

[Fluff]

Ok, change the red 5 to a 3, otherwise you are putting the time in col E

    Cells(65536, 5).End(xlUp).Offset(1, 0).Select

Remove this from the Capture_Time code

    Application.OnKey "{Capslock}", "Capture_Time"

and put

    Application.OnKey "{Capslock}", "Sheet2.Capture_Time_Click"

in the Start_Timer code

 

[CycloneSteve]

Ok, change the red 5 to a 3, otherwise you are putting the time in col E

    Cells(65536, 5).End(xlUp).Offset(1, 0).Select

Remove this from the Capture_Time code

    Application.OnKey "{Capslock}", "Capture_Time"

and put

    Application.OnKey "{Capslock}", "Sheet2.Capture_Time_Click"

in the Start_Timer code

Thanks, I'll give it a go and see how it turns out.

 

[Fluff]

Ok.

 

[CycloneSteve]

Ok, change the red 5 to a 3, otherwise you are putting the time in col E

    Cells(65536, 5).End(xlUp).Offset(1, 0).Select

Remove this from the Capture_Time code

    Application.OnKey "{Capslock}", "Capture_Time"

and put

    Application.OnKey "{Capslock}", "Sheet2.Capture_Time_Click"

in the Start_Timer code

Ok, so it seems like the times are being entered into the right places, and the CapsLock hotkey is now working. However I am getting some bizarre times in the times column when I click the button. Plus on the odd occasion I get an error message. Any idea what is causing it??

 

[Fluff]

That's down to the change event you have running on col C & I have no idea what it's meant to be doing.