Rummy 500 Scorecard

[rackem12]

Hello all.

So I have the basic premise for a Rummy 500 scorecard and stat tracker that we use in the family. But I am trying to automate it as much as possible, right now it is all manual.

One thing I would like to add is a way to be able to track the current game score, hand by hand, and then once the game is over, be able to auto populate those hand scores, and final game scores, with who won and who lost over into all the other tables. We usually play 2 players, but sometimes go 3 or 4 so I need it to be able to understand that. I have attached a screenshot of what I have so far.

Thanks in Advance!

 

[rpaulson]

Cool little project.
here is my opinion.
this should give you a good start.


Shift the rows down by one in Columns A the F. so the names are in row 2.
in row 1 above then names put a formula for the running total of the current game. in a1 =SUM(A3:A100) then fill right thru column E

In columns H:M and O:T I always like to have the most recent game at the top of the list (So Row 2 is always the most current game)

when you run the code below it will create a new row (2) columns H:T, and shift the rows down by 1.
it will then put the scores in H2:M2 and then put a "W" or "L" in O:T

Sub Winner()

Range("H2:T2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("H2:L2").Value = Range("A1:E1").Value 'write from gray to blue sction

Range("H2:L2").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
     
x = WorksheetFunction.Max(Range("H2:L2"))
For c = 8 To 12
    If Cells(2, c) = "" Then GoTo 88
    If Cells(2, c).Value = x Then Cells(2, c + 7) = "W" Else Cells(2, c + 7) = "L"
88 Next c
    
End Sub

hth,
Ross

 

[rackem12]

Rpaulson,

I appreciate the speedy reply. I'm going to run it here in a bit. The only thing is that the first table is running table of every hand played throughout all the games. Not just the current game. Not sure how that would change things.