OK Golf lovers, a little help here

[Moveit.com]

Hi -I maintain stats for a golf league in the midwest. I am looking fo
a little help with a formula to automatically calculate how man
birdies/pars/bogeys in a round for people.

I will enter the hole numbers in, say A2-A10, Par for each hole o
B2-B10, then for the 100 members -their scores on each hole (each week
-in C2:C10, D210 etc...

I have been banging my head for quite a while trying to find a way t
create a Birdy, Par and Bogey column that will automatically calculat
how many of each that player had that round.

Thanks for any help, it is much appreciated!!!!! I'm happy to fin
this board!

Cha

 

[Guest]

Hi, you could write vba to loop thru the scores and count
the birdies, pars and bogies, but you could also code the
following in cell C12 to count the birdies.

=1*IF(C$3-$B$3=-1,1,0)+1*IF(C$4-$B$4=-1,1,0)+1*IF(C$5-
$B$5=-1,1,0)+1*IF(C$6-$B$6=-1,1,0)+1*IF(C$7-$B$7=-1,1,0)
+1*IF(C$8-$B$8=-1,1,0)+1*IF(C$9-$B$9=-1,1,0)+1*IF(C$10-
$B$10=-1,1,0)

Change the =-1 to =0 and you get the pars and to =1 and
you get the bogies.

 

[Guest]

This seemed to do the trick - it writes the # of birdies,
pars, and bogies in rows 12-14 (under the scores).

Sub Macro1()
'
Dim birdie(100) As Integer
Dim Par(100) As Integer
Dim Bogie(100) As Integer
'
For i = 3 To 102
birdie(i) = 0
Par(i) = 0
Bogie(i) = 0
For j = 2 To 10
If Cells(j, i).Value - Cells(j, 2).Value = -1 Then birdie
(i) = birdie(i) + 1
If Cells(j, i).Value - Cells(j, 2).Value = 0 Then Par(i) =
Par(i) + 1
If Cells(j, i).Value - Cells(j, 2).Value = 1 Then Bogie(i)
= Bogie(i) + 1
Next j
Cells(12, i).Value = birdie(i)
Cells(13, i).Value = Par(i)
Cells(14, i).Value = Bogie(i)
'
Next i
'
End Sub

 

[Nigel]

What about Eagles and Albatross - you never know!!

 

[Gord Dibben]

And don't forget the dreaded "other"

Gord

What about Eagles and Albatross - you never know!!

 

[Bob Phillips]

Par

=SUMPRODUCT(--(B1:B10-C1:CX10=0))

Birdie

=SUMPRODUCT(--(B1:B10-C1:CX5CX10=1))

etc.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)