Rapidly Enter Golf Scores Hole by Hole

[KevCarter]

Good Morning All,

I’m looking for a solution to not have to use the tab key when entering golf scores on a form. Separate field for each hole. Scores are entered like:
4 4 5 5 4 10 4 5 ...

====================
If the score entered is greater than 1 Then
Go to the next field ‘ Post the tab key or go to field
Else
If there are 2 characters entered ‘ (like 10)
‘ Or perhaps the score entered is greater than 9
Go to the next field
End If
====================

This will allow the entry of double digit scores while rapidly moving along to the next field. When the seldom event of the player making a 1 happens, the user will have to use the tab key to move to the next field.

I’m pretty sure this can’t be accomplished on the worksheet itself, so I must use a form?

Any help in pointing me in the proper direction will be greatly appreciated!

Thank You,
Kevin

 

[My Aswer Is This]

Well then someone else will need to help you.
I know nothing about Key press.
So you want to do nothin but enter value. Without pressing enter.

 

[KevCarter]

Well then someone else will need to help you.
I know nothing about Key press.
So you want to do nothin but enter value. Without pressing enter.

Exactly. my apologies for wasting your time My Answer is This. My first post wasn't very clear. Thank you for giving it a shot!

Kevin

 

[My Aswer Is This]

Exactly. my apologies for wasting your time My Answer is This. My first post wasn't very clear. Thank you for giving it a shot!

Kevin

That's OK. I'm surprised pressing enter would slow down the scoring process.

Let me know if you find a answer.
Now this may work in a Userform.

Would you be interested in that.

I guess the script would then have to be written to always enter value 1 cell to right.

 

[KevCarter]

That's OK. I'm surprised pressing enter would slow down the scoring process.

Let me know if you find a answer.
Now this may work in a Userform.

Would you be interested in that.

I guess the script would then have to be written to always enter value 1 cell to right.

Actually, your script will help me a lot, Now see what this will do for me. I can now hit enter instead of tab, and go to the next column instead of down a row. This will really speed up the process. I didn't get it at first, but you have been a HUGE help, and this may be faster than opening a form and dealing with all that goes along with it...

Thank you again!

 

[My Aswer Is This]

You can try this if you want:
When you enter a value in column 10 the script will jump to column 12 jumping over column 11.

I looked into Key down in Userform but it had problem when you entered more then one value like 12

Private Sub Worksheet_Change(ByVal Target As Range)
'Modiefied 3-10-18 1:05 PM EST
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column > 1 And Target.Column < 11 Then: Target.Offset(0, 1).Select
If Target.Column > 11 And Target.Column < 21 Then: Target.Offset(0, 1).Select
If Target.Column = 10 Then: Target.Offset(0, 2).Select
End Sub

 

[KevCarter]

This will be great. Thank you!

 

[greatness1987]

Have you succeed, Kev Carter? I would love to see your results!