Tabulating random number results

[jms6497]

I have an excel spreadsheet that analyzes Powerball numbers. One of the worksheets in the file is used to generate random numbers. It is set up with a macro button to generate 5 random numbers in 5 specific cells and regenerates a new set of numbers in the same cells with each "push" of the button. What I would like to do is tabulate the results of each "push" of the button in a table (preferably in the same worksheet). I have not been able to figure out how to accomplish this....any suggestions.

[Al Chara]

What do you actually want to save? (the number of times a number appears, or the number of times two numbers appear together, or what?)

[Jay Petrulis]

Hi,

You couldn't have known, but unique random numbers have been quite a topic around here in recent days.

Assuming that A1:E1 are the cells housing your lottery numbers and that columns F:J are where you are storing the trial runs, add this to your subroutine before you do anything else.

-------------
Sub tester()
Dim nextrow As Long
nextrow = Cells(Rows.Count, "F").End(xlUp).Row + 1
Range("F" & nextrow & ":J" & nextrow) = Range("A1:E1").Value
End Sub
-------------

HTH,
Jay

[jms6497]

On 2002-04-16 13:02, Al Chara wrote:
What do you actually want to save? (the number of times a number appears, or the number of times two numbers appear together, or what?)

I merely want to tabulate each set of numbers in a 5-column table.

[Al Chara]

Jays macro will work nicely.

[jms6497]

On 2002-04-16 13:14, Jay Petrulis wrote:
Hi,

You couldn't have known, but unique random numbers have been quite a topic around here in recent days.

Assuming that A1:E1 are the cells housing your lottery numbers and that columns F:J are where you are storing the trial runs, add this to your subroutine before you do anything else.

-------------
Sub tester()
Dim nextrow As Long
nextrow = Cells(Rows.Count, "F").End(xlUp).Row + 1
Range("F" & nextrow & ":J" & nextrow) = Range("A1:E1").Value
End Sub
-------------

HTH,
Jay

Thanks, I will try this and see what happens!!