Hello all,
I can do this but my way will take me forever to code. I'm just seeing if there is an easier way to pull this off.
I'm making a golf scorecard. On one sheet I have the scorecard, on a second one I have all the course info: par, yardage, handicap, etc.
When I select a course from my list, the scorecard will populate with the course info. I'm using Select Case right now.
Here is the beginning code:
I can do the individual cells like above, but when it comes to putting in the yardage, par, and handicap for each hole, I'd prefer not to have to put 18*3 statements for each cell. Like the range on Sheet1 for each hole is C15:K15 and M15:U15 for par, C14:K14, M14:U14 for handicap, etc.
I have 6 courses to choose from. So doing it my way will be one lengthly Select case.
Thanks for any ideas and help.
I can do this but my way will take me forever to code. I'm just seeing if there is an easier way to pull this off.
I'm making a golf scorecard. On one sheet I have the scorecard, on a second one I have all the course info: par, yardage, handicap, etc.
When I select a course from my list, the scorecard will populate with the course info. I'm using Select Case right now.
Here is the beginning code:
Code:
Dim CourseChoice As String
CourseChoice = Sheets("Score Sheet").Cells(7, 1)
Select Case CourseChoice
Case Is = "Eagle Knoll"
Sheets("Score Sheet").Cells(3, 3) = Sheets("Golf Course Info").Cells(5, 2)
Sheets("Score Sheet").Cells(4, 3) = Sheets("Golf Course Info").Cells(6, 2)
End Select
I can do the individual cells like above, but when it comes to putting in the yardage, par, and handicap for each hole, I'd prefer not to have to put 18*3 statements for each cell. Like the range on Sheet1 for each hole is C15:K15 and M15:U15 for par, C14:K14, M14:U14 for handicap, etc.
I have 6 courses to choose from. So doing it my way will be one lengthly Select case.
Thanks for any ideas and help.