floridabill
New Member
- Joined
- Sep 13, 2018
- Messages
- 3
I have a list og Golfers , each we we record their points to determine their rank for the following week . Currently we open a spreadsheet and enter their scores for the week , the spreadsheet calculates the average from the top 3 scores from the five most recent scores. All of this works fine.
I want to create a Form that finds the next empty column in each player's Row allows me to type in the number and select the next player and enter his scores.
this exaple is hoe the sheet is laid out
[TABLE="width: 752"]
<tbody>[TR]
[TD="width: 94"]Name[/TD]
[TD="class: xl63, width: 94, align: right"]1/1/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/8/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/15/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/22/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/29/2018[/TD]
[TD="class: xl63, width: 94, align: right"]2/5/2018[/TD]
[TD="class: xl63, width: 94, align: right"]2/12/2018[/TD]
[/TR]
[TR]
[TD]Bill[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]22[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]22[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Charles[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]16[/TD]
[TD="align: right"]18[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]26[/TD]
[TD="align: right"]29[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Milke[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]25[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]27[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Bob[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]16[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]15[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Jim[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]17[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]22[/TD]
[TD="align: right"]23[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I ca't even get past the first part of the code that i typed so far -- frankly I'm lost . i copied code that added to the last empty row and tried modifying it
any help would be appreciated . getting a 424 error code
Private Sub CommandButton1_Click()
lastcol = Cells(9, colums.Count).End(x1Toleft)
lastcol = Cells(9, Columns.Count).Value = "wmKnott"
End Sub
I want to create a Form that finds the next empty column in each player's Row allows me to type in the number and select the next player and enter his scores.
this exaple is hoe the sheet is laid out
[TABLE="width: 752"]
<tbody>[TR]
[TD="width: 94"]Name[/TD]
[TD="class: xl63, width: 94, align: right"]1/1/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/8/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/15/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/22/2018[/TD]
[TD="class: xl63, width: 94, align: right"]1/29/2018[/TD]
[TD="class: xl63, width: 94, align: right"]2/5/2018[/TD]
[TD="class: xl63, width: 94, align: right"]2/12/2018[/TD]
[/TR]
[TR]
[TD]Bill[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]22[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]22[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Charles[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]16[/TD]
[TD="align: right"]18[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]26[/TD]
[TD="align: right"]29[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Milke[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]21[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]25[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]27[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Bob[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]15[/TD]
[TD="align: right"]16[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]15[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Jim[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]17[/TD]
[TD="align: right"]19[/TD]
[TD="align: right"]22[/TD]
[TD="align: right"]23[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I ca't even get past the first part of the code that i typed so far -- frankly I'm lost . i copied code that added to the last empty row and tried modifying it
any help would be appreciated . getting a 424 error code
Private Sub CommandButton1_Click()
lastcol = Cells(9, colums.Count).End(x1Toleft)
lastcol = Cells(9, Columns.Count).Value = "wmKnott"
End Sub