Scorer sheets

[ageordieinneed]

Hi all newbie here and not the best with excel or vba
i am doing a darts scorer with a few macro button(180,140,100) and vlookup (3 dart, 2 dart finishing) which seem to work great
so here goes
1, when 501(k21 or m21 reaches 0 it adds +1 value to i5 or o5 1st one to zero wins the 1 instead of pressing a win button on the player and resetts k21 and m21 to 501?
2, is there a way of making it call the numbers ie say i score/type 100 i hear it say 100 which i have all media file on pc

help much appreciated

 

[ageordieinneed]

Re: Scorer sheets help

got to be someone out there that can help

 

[Snakehips]

Re: Scorer sheets help

@ageordieinneed
Assuming that you don't already have vba code for your scoresheet's Change Event that this might conflict with, the below should help you with 1.

In the vb editor, double click the sheet reference and paste the below into the code pane.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Target = 0 Then Exit Sub
If Intersect(Target, Range("K21,M21")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Column = 11 Then  'K
Range("I5") = Range("I5") + 1
Else: Range("O5") = Range("O5") + 1  'M
End If
Range("K21,M21") = 501
Application.EnableEvents = True
End Sub

Hope that helps.

 

[MARK858]

Re: Scorer sheets help

https://www.darts501.com/Scorer.html

 

[ageordieinneed]

Re: Scorer sheets help

hi snakehips and cheers for the reply
nothing happen when k21 or m21 reaches zero?
cheers

 

[ageordieinneed]

Re: Scorer sheets help

hi mark858
i have dl a few of these but i've put a few buttons in with vba in the sheet much quicker in think
cheers

 

[MARK858]

Re: Scorer sheets help

hi snakehips and cheers for the reply
nothing happen when k21 or m21 reaches zero?
cheers

Where did you put the code? In a sheet module or a regular module and how are you triggering it? Manually, by formula or code?

 

[Snakehips]

Re: Scorer sheets help

hi snakehips and cheers for the reply
nothing happen when k21 or m21 reaches zero?
cheers

I assumed you are entering 0 in K21 0r M21?
I'm now thinking that you are entering the score in another cell and that K21 & M21 contain a formula that will eventually resolve to zero?
Let me know and I will re-code.

 

[ageordieinneed]

Re: Scorer sheets help

hi
i put the vba in the sheet 1 =general, which has a code already in to more the curser
the formula is in k11 and m21 ie =(L3-SUM(K3:K20)) =(L3-SUM(M3:M20)) the l3 is the 501
hope this helps

 

[ageordieinneed]

Re: Scorer sheets help

sorry a typo *k21