Macro to Calculate Triples Excluding & Including the Bonus Number

PAB · Oct 9, 2005

Hi Everyone,

The Macro is Called "List_ALL_Triples" and will Calculate & List the Total Number of Times EACH Triple has Been Drawn Excluding AND Including the Bonus Number for a 649 Lotto.

Setup

In a Sheet Named "No Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Bonus
Then Enter ALL the Results ( As Per Above ) for the 649 Lotto Starting in Cell "A2".

In a Sheet Named "Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Ball 7
Then Enter the Following Formulas Starting in Cell "A2" :-

A2 Formula :-
=IF('No Bonus'!$A2=0," ",'No Bonus'!$A2)

B2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,1))

C2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,2))

D2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,3))

E2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,4))

F2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,5))

G2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,6))

H2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,7))

Copy ALL of these Formulas Down to Say Fifty Or So Draws Past the Current Draw so as to Allow for Future Draw Information.
An Empty Sheet Named "Results" MUST Also be Available. After the Macro has Finished Running, the First Three Columns ( A, B and C ) will Contain the Combinations of ALL 18,424 Triples, Column D will Contain the Total Number of Times EXCLUDING the Bonus Number EACH of these Triples has Been Draw, and Column E will Contain the Total Number of Times INCLUDING the Bonus Number EACH of these Triples has Been Draw. You can then Sort on Either Excluding OR Including the Bonus Number.

Here is the Macro ( Just Copy & Paste into a Standard Module ) :-

Code:

Option Explicit
Option Base 1

Sub List_ALL_Triples()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim nDraw As Integer
Dim nNo(7) As Integer
Dim nBonus(49, 49, 49) As Integer
Dim nNoBonus(49, 49, 49) As Integer

Application.ScreenUpdating = False
Sheets("No Bonus").Select
Range("A2").Select

Do While ActiveCell.Value > 0
    nDraw = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop

Range("A1").Select

For i = 1 To nDraw
    For j = 1 To 7
        nNo(j) = ActiveCell.Offset(i, j).Value
    Next j
    nNoBonus(nNo(1), nNo(2), nNo(3)) = nNoBonus(nNo(1), nNo(2), nNo(3)) + 1
    nNoBonus(nNo(1), nNo(2), nNo(4)) = nNoBonus(nNo(1), nNo(2), nNo(4)) + 1
    nNoBonus(nNo(1), nNo(2), nNo(5)) = nNoBonus(nNo(1), nNo(2), nNo(5)) + 1
    nNoBonus(nNo(1), nNo(2), nNo(6)) = nNoBonus(nNo(1), nNo(2), nNo(6)) + 1
    nNoBonus(nNo(1), nNo(3), nNo(4)) = nNoBonus(nNo(1), nNo(3), nNo(4)) + 1
    nNoBonus(nNo(1), nNo(3), nNo(5)) = nNoBonus(nNo(1), nNo(3), nNo(5)) + 1
    nNoBonus(nNo(1), nNo(3), nNo(6)) = nNoBonus(nNo(1), nNo(3), nNo(6)) + 1
    nNoBonus(nNo(1), nNo(4), nNo(5)) = nNoBonus(nNo(1), nNo(4), nNo(5)) + 1
    nNoBonus(nNo(1), nNo(4), nNo(6)) = nNoBonus(nNo(1), nNo(4), nNo(6)) + 1
    nNoBonus(nNo(1), nNo(5), nNo(6)) = nNoBonus(nNo(1), nNo(5), nNo(6)) + 1
    nNoBonus(nNo(2), nNo(3), nNo(4)) = nNoBonus(nNo(2), nNo(3), nNo(4)) + 1
    nNoBonus(nNo(2), nNo(3), nNo(5)) = nNoBonus(nNo(2), nNo(3), nNo(5)) + 1
    nNoBonus(nNo(2), nNo(3), nNo(6)) = nNoBonus(nNo(2), nNo(3), nNo(6)) + 1
    nNoBonus(nNo(2), nNo(4), nNo(5)) = nNoBonus(nNo(2), nNo(4), nNo(5)) + 1
    nNoBonus(nNo(2), nNo(4), nNo(6)) = nNoBonus(nNo(2), nNo(4), nNo(6)) + 1
    nNoBonus(nNo(2), nNo(5), nNo(6)) = nNoBonus(nNo(2), nNo(5), nNo(6)) + 1
    nNoBonus(nNo(3), nNo(4), nNo(5)) = nNoBonus(nNo(3), nNo(4), nNo(5)) + 1
    nNoBonus(nNo(3), nNo(4), nNo(6)) = nNoBonus(nNo(3), nNo(4), nNo(6)) + 1
    nNoBonus(nNo(3), nNo(5), nNo(6)) = nNoBonus(nNo(3), nNo(5), nNo(6)) + 1
    nNoBonus(nNo(4), nNo(5), nNo(6)) = nNoBonus(nNo(4), nNo(5), nNo(6)) + 1
Next i

Sheets("Bonus").Select
Range("A2").Select

Do While ActiveCell.Value > " "
    nDraw = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop

Range("A1").Select

For i = 1 To nDraw
    For j = 1 To 7
        nNo(j) = ActiveCell.Offset(i, j).Value
    Next j
    nBonus(nNo(1), nNo(2), nNo(3)) = nBonus(nNo(1), nNo(2), nNo(3)) + 1
    nBonus(nNo(1), nNo(2), nNo(4)) = nBonus(nNo(1), nNo(2), nNo(4)) + 1
    nBonus(nNo(1), nNo(2), nNo(5)) = nBonus(nNo(1), nNo(2), nNo(5)) + 1
    nBonus(nNo(1), nNo(2), nNo(6)) = nBonus(nNo(1), nNo(2), nNo(6)) + 1
    nBonus(nNo(1), nNo(2), nNo(7)) = nBonus(nNo(1), nNo(2), nNo(7)) + 1
    nBonus(nNo(1), nNo(3), nNo(4)) = nBonus(nNo(1), nNo(3), nNo(4)) + 1
    nBonus(nNo(1), nNo(3), nNo(5)) = nBonus(nNo(1), nNo(3), nNo(5)) + 1
    nBonus(nNo(1), nNo(3), nNo(6)) = nBonus(nNo(1), nNo(3), nNo(6)) + 1
    nBonus(nNo(1), nNo(3), nNo(7)) = nBonus(nNo(1), nNo(3), nNo(7)) + 1
    nBonus(nNo(1), nNo(4), nNo(5)) = nBonus(nNo(1), nNo(4), nNo(5)) + 1
    nBonus(nNo(1), nNo(4), nNo(6)) = nBonus(nNo(1), nNo(4), nNo(6)) + 1
    nBonus(nNo(1), nNo(4), nNo(7)) = nBonus(nNo(1), nNo(4), nNo(7)) + 1
    nBonus(nNo(1), nNo(5), nNo(6)) = nBonus(nNo(1), nNo(5), nNo(6)) + 1
    nBonus(nNo(1), nNo(5), nNo(7)) = nBonus(nNo(1), nNo(5), nNo(7)) + 1
    nBonus(nNo(1), nNo(6), nNo(7)) = nBonus(nNo(1), nNo(6), nNo(7)) + 1
    nBonus(nNo(2), nNo(3), nNo(4)) = nBonus(nNo(2), nNo(3), nNo(4)) + 1
    nBonus(nNo(2), nNo(3), nNo(5)) = nBonus(nNo(2), nNo(3), nNo(5)) + 1
    nBonus(nNo(2), nNo(3), nNo(6)) = nBonus(nNo(2), nNo(3), nNo(6)) + 1
    nBonus(nNo(2), nNo(3), nNo(7)) = nBonus(nNo(2), nNo(3), nNo(7)) + 1
    nBonus(nNo(2), nNo(4), nNo(5)) = nBonus(nNo(2), nNo(4), nNo(5)) + 1
    nBonus(nNo(2), nNo(4), nNo(6)) = nBonus(nNo(2), nNo(4), nNo(6)) + 1
    nBonus(nNo(2), nNo(4), nNo(7)) = nBonus(nNo(2), nNo(4), nNo(7)) + 1
    nBonus(nNo(2), nNo(5), nNo(6)) = nBonus(nNo(2), nNo(5), nNo(6)) + 1
    nBonus(nNo(2), nNo(5), nNo(7)) = nBonus(nNo(2), nNo(5), nNo(7)) + 1
    nBonus(nNo(2), nNo(6), nNo(7)) = nBonus(nNo(2), nNo(6), nNo(7)) + 1
    nBonus(nNo(3), nNo(4), nNo(5)) = nBonus(nNo(3), nNo(4), nNo(5)) + 1
    nBonus(nNo(3), nNo(4), nNo(6)) = nBonus(nNo(3), nNo(4), nNo(6)) + 1
    nBonus(nNo(3), nNo(4), nNo(7)) = nBonus(nNo(3), nNo(4), nNo(7)) + 1
    nBonus(nNo(3), nNo(5), nNo(6)) = nBonus(nNo(3), nNo(5), nNo(6)) + 1
    nBonus(nNo(3), nNo(5), nNo(7)) = nBonus(nNo(3), nNo(5), nNo(7)) + 1
    nBonus(nNo(3), nNo(6), nNo(7)) = nBonus(nNo(3), nNo(6), nNo(7)) + 1
    nBonus(nNo(4), nNo(5), nNo(6)) = nBonus(nNo(4), nNo(5), nNo(6)) + 1
    nBonus(nNo(4), nNo(5), nNo(7)) = nBonus(nNo(4), nNo(5), nNo(7)) + 1
    nBonus(nNo(4), nNo(6), nNo(7)) = nBonus(nNo(4), nNo(6), nNo(7)) + 1
    nBonus(nNo(5), nNo(6), nNo(7)) = nBonus(nNo(5), nNo(6), nNo(7)) + 1
Next i

Sheets("Results").Select
Range("A1").Select

For i = 1 To 49 - 2
    For j = i + 1 To 49 - 1
        For k = j + 1 To 49
            ActiveCell.Offset(0, 0).Value = i
            ActiveCell.Offset(0, 1).Value = j
            ActiveCell.Offset(0, 2).Value = k
            ActiveCell.Offset(0, 3).Value = nNoBonus(i, j, k)
            ActiveCell.Offset(0, 4).Value = nBonus(i, j, k)
            ActiveCell.Offset(1, 0).Select
        Next k
    Next j
Next i

Columns("A:IV").AutoFit
Columns("A:IV").HorizontalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub

Have Fun!.
All the Best.
PAB
:wavey:

Grandmaster · Oct 17, 2005

Hi PAB,

Very interesting formulas you are using in this macro, however it would be useful if you could provide to us with an actual microsoft excel sheet with the macro as an example for the people who are not familiarized with visual basic macros..

As a suggestion PAB, you could upload a microsoft excel sheet with the macro (example) to a free web hosting like http://www.mytempdir.com/ , then we could download it and modified the information according to our lotto,

Thank's for sharing your ideas! :agree2:

Regards

gopal72 · Oct 18, 2005

PAB said:

Hi Everyone,

The Macro is Called "List_ALL_Triples" and will Calculate & List the Total Number of Times EACH Triple has Been Drawn Excluding AND Including the Bonus Number for a 649 Lotto.

Setup

In a Sheet Named "No Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Bonus
Then Enter ALL the Results ( As Per Above ) for the 649 Lotto Starting in Cell "A2".

In a Sheet Named "Bonus", Enter Titles Starting in "A1" Such as :-
A1 = Draw
B1 = Ball 1
C1 = Ball 2
D1 = Ball 3
E1 = Ball 4
F1 = Ball 5
G1 = Ball 6
H1 = Ball 7
Then Enter the Following Formulas Starting in Cell "A2" :-

A2 Formula :-
=IF('No Bonus'!$A2=0," ",'No Bonus'!$A2)

B2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,1))

C2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,2))

D2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,3))

E2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,4))

F2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,5))

G2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,6))

H2 Formula :-
=IF('No Bonus'!$B2:$H2=0," ",SMALL('No Bonus'!$B2:$H2,7))

Copy ALL of these Formulas Down to Say Fifty Or So Draws Past the Current Draw so as to Allow for Future Draw Information.
An Empty Sheet Named "Results" MUST Also be Available. After the Macro has Finished Running, the First Three Columns ( A, B and C ) will Contain the Combinations of ALL 18,424 Triples, Column D will Contain the Total Number of Times EXCLUDING the Bonus Number EACH of these Triples has Been Draw, and Column E will Contain the Total Number of Times INCLUDING the Bonus Number EACH of these Triples has Been Draw. You can then Sort on Either Excluding OR Including the Bonus Number.

Here is the Macro ( Just Copy & Paste into a Standard Module ) :-

Code:

Option Explicit Option Base 1 Sub List_ALL_Triples() Dim i As Integer Dim j As Integer Dim k As Integer Dim nDraw As Integer Dim nNo(7) As Integer Dim nBonus(49, 49, 49) As Integer Dim nNoBonus(49, 49, 49) As Integer Application.ScreenUpdating = False Sheets("No Bonus").Select Range("A2").Select Do While ActiveCell.Value > 0 nDraw = ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Range("A1").Select For i = 1 To nDraw For j = 1 To 7 nNo(j) = ActiveCell.Offset(i, j).Value Next j nNoBonus(nNo(1), nNo(2), nNo(3)) = nNoBonus(nNo(1), nNo(2), nNo(3)) + 1 nNoBonus(nNo(1), nNo(2), nNo(4)) = nNoBonus(nNo(1), nNo(2), nNo(4)) + 1 nNoBonus(nNo(1), nNo(2), nNo(5)) = nNoBonus(nNo(1), nNo(2), nNo(5)) + 1 nNoBonus(nNo(1), nNo(2), nNo(6)) = nNoBonus(nNo(1), nNo(2), nNo(6)) + 1 nNoBonus(nNo(1), nNo(3), nNo(4)) = nNoBonus(nNo(1), nNo(3), nNo(4)) + 1 nNoBonus(nNo(1), nNo(3), nNo(5)) = nNoBonus(nNo(1), nNo(3), nNo(5)) + 1 nNoBonus(nNo(1), nNo(3), nNo(6)) = nNoBonus(nNo(1), nNo(3), nNo(6)) + 1 nNoBonus(nNo(1), nNo(4), nNo(5)) = nNoBonus(nNo(1), nNo(4), nNo(5)) + 1 nNoBonus(nNo(1), nNo(4), nNo(6)) = nNoBonus(nNo(1), nNo(4), nNo(6)) + 1 nNoBonus(nNo(1), nNo(5), nNo(6)) = nNoBonus(nNo(1), nNo(5), nNo(6)) + 1 nNoBonus(nNo(2), nNo(3), nNo(4)) = nNoBonus(nNo(2), nNo(3), nNo(4)) + 1 nNoBonus(nNo(2), nNo(3), nNo(5)) = nNoBonus(nNo(2), nNo(3), nNo(5)) + 1 nNoBonus(nNo(2), nNo(3), nNo(6)) = nNoBonus(nNo(2), nNo(3), nNo(6)) + 1 nNoBonus(nNo(2), nNo(4), nNo(5)) = nNoBonus(nNo(2), nNo(4), nNo(5)) + 1 nNoBonus(nNo(2), nNo(4), nNo(6)) = nNoBonus(nNo(2), nNo(4), nNo(6)) + 1 nNoBonus(nNo(2), nNo(5), nNo(6)) = nNoBonus(nNo(2), nNo(5), nNo(6)) + 1 nNoBonus(nNo(3), nNo(4), nNo(5)) = nNoBonus(nNo(3), nNo(4), nNo(5)) + 1 nNoBonus(nNo(3), nNo(4), nNo(6)) = nNoBonus(nNo(3), nNo(4), nNo(6)) + 1 nNoBonus(nNo(3), nNo(5), nNo(6)) = nNoBonus(nNo(3), nNo(5), nNo(6)) + 1 nNoBonus(nNo(4), nNo(5), nNo(6)) = nNoBonus(nNo(4), nNo(5), nNo(6)) + 1 Next i Sheets("Bonus").Select Range("A2").Select Do While ActiveCell.Value > " " nDraw = ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Range("A1").Select For i = 1 To nDraw For j = 1 To 7 nNo(j) = ActiveCell.Offset(i, j).Value Next j nBonus(nNo(1), nNo(2), nNo(3)) = nBonus(nNo(1), nNo(2), nNo(3)) + 1 nBonus(nNo(1), nNo(2), nNo(4)) = nBonus(nNo(1), nNo(2), nNo(4)) + 1 nBonus(nNo(1), nNo(2), nNo(5)) = nBonus(nNo(1), nNo(2), nNo(5)) + 1 nBonus(nNo(1), nNo(2), nNo(6)) = nBonus(nNo(1), nNo(2), nNo(6)) + 1 nBonus(nNo(1), nNo(2), nNo(7)) = nBonus(nNo(1), nNo(2), nNo(7)) + 1 nBonus(nNo(1), nNo(3), nNo(4)) = nBonus(nNo(1), nNo(3), nNo(4)) + 1 nBonus(nNo(1), nNo(3), nNo(5)) = nBonus(nNo(1), nNo(3), nNo(5)) + 1 nBonus(nNo(1), nNo(3), nNo(6)) = nBonus(nNo(1), nNo(3), nNo(6)) + 1 nBonus(nNo(1), nNo(3), nNo(7)) = nBonus(nNo(1), nNo(3), nNo(7)) + 1 nBonus(nNo(1), nNo(4), nNo(5)) = nBonus(nNo(1), nNo(4), nNo(5)) + 1 nBonus(nNo(1), nNo(4), nNo(6)) = nBonus(nNo(1), nNo(4), nNo(6)) + 1 nBonus(nNo(1), nNo(4), nNo(7)) = nBonus(nNo(1), nNo(4), nNo(7)) + 1 nBonus(nNo(1), nNo(5), nNo(6)) = nBonus(nNo(1), nNo(5), nNo(6)) + 1 nBonus(nNo(1), nNo(5), nNo(7)) = nBonus(nNo(1), nNo(5), nNo(7)) + 1 nBonus(nNo(1), nNo(6), nNo(7)) = nBonus(nNo(1), nNo(6), nNo(7)) + 1 nBonus(nNo(2), nNo(3), nNo(4)) = nBonus(nNo(2), nNo(3), nNo(4)) + 1 nBonus(nNo(2), nNo(3), nNo(5)) = nBonus(nNo(2), nNo(3), nNo(5)) + 1 nBonus(nNo(2), nNo(3), nNo(6)) = nBonus(nNo(2), nNo(3), nNo(6)) + 1 nBonus(nNo(2), nNo(3), nNo(7)) = nBonus(nNo(2), nNo(3), nNo(7)) + 1 nBonus(nNo(2), nNo(4), nNo(5)) = nBonus(nNo(2), nNo(4), nNo(5)) + 1 nBonus(nNo(2), nNo(4), nNo(6)) = nBonus(nNo(2), nNo(4), nNo(6)) + 1 nBonus(nNo(2), nNo(4), nNo(7)) = nBonus(nNo(2), nNo(4), nNo(7)) + 1 nBonus(nNo(2), nNo(5), nNo(6)) = nBonus(nNo(2), nNo(5), nNo(6)) + 1 nBonus(nNo(2), nNo(5), nNo(7)) = nBonus(nNo(2), nNo(5), nNo(7)) + 1 nBonus(nNo(2), nNo(6), nNo(7)) = nBonus(nNo(2), nNo(6), nNo(7)) + 1 nBonus(nNo(3), nNo(4), nNo(5)) = nBonus(nNo(3), nNo(4), nNo(5)) + 1 nBonus(nNo(3), nNo(4), nNo(6)) = nBonus(nNo(3), nNo(4), nNo(6)) + 1 nBonus(nNo(3), nNo(4), nNo(7)) = nBonus(nNo(3), nNo(4), nNo(7)) + 1 nBonus(nNo(3), nNo(5), nNo(6)) = nBonus(nNo(3), nNo(5), nNo(6)) + 1 nBonus(nNo(3), nNo(5), nNo(7)) = nBonus(nNo(3), nNo(5), nNo(7)) + 1 nBonus(nNo(3), nNo(6), nNo(7)) = nBonus(nNo(3), nNo(6), nNo(7)) + 1 nBonus(nNo(4), nNo(5), nNo(6)) = nBonus(nNo(4), nNo(5), nNo(6)) + 1 nBonus(nNo(4), nNo(5), nNo(7)) = nBonus(nNo(4), nNo(5), nNo(7)) + 1 nBonus(nNo(4), nNo(6), nNo(7)) = nBonus(nNo(4), nNo(6), nNo(7)) + 1 nBonus(nNo(5), nNo(6), nNo(7)) = nBonus(nNo(5), nNo(6), nNo(7)) + 1 Next i Sheets("Results").Select Range("A1").Select For i = 1 To 49 - 2 For j = i + 1 To 49 - 1 For k = j + 1 To 49 ActiveCell.Offset(0, 0).Value = i ActiveCell.Offset(0, 1).Value = j ActiveCell.Offset(0, 2).Value = k ActiveCell.Offset(0, 3).Value = nNoBonus(i, j, k) ActiveCell.Offset(0, 4).Value = nBonus(i, j, k) ActiveCell.Offset(1, 0).Select Next k Next j Next i Columns("A:IV").AutoFit Columns("A:IV").HorizontalAlignment = xlCenter Application.ScreenUpdating = True End Sub

Have Fun!.
All the Best.
PAB

gopal72 · Oct 18, 2005

gopal72 said:

HI All,

Sorry didn't mean to take the credi for PAB's amazing formula. Accidently hit the sent button.

Anyway PAB, thankz for being very thoughful & generous in sharing your efforts.

Would appreciate if you could put this macro in Excell template as suggested by Grandmaster. It will be very helpfull.

Many thanks
Gopal

PAB · Oct 19, 2005

Hi Everyone,

I have Uploaded the File to Calculate Triples Excluding & Including the Bonus Number.
ALL the Formulas are in Situte in the Sheet Named "Bonus" to Allow for 2,300 Draws ( you DO NOT Enter Draw Data in this Sheet, just Copy the Formulas Down for More Draws ).
ALL the Draws Upto and Including Draw 2,268 ( Saturday the 15th of October 2005 ) for the Canadian 649 Lotto are Already Entered.

To Run the Macro, Click :-
Tools
Macro
Macros
Run

Depending on the Speed of your Computer, it will take Approximately 1 Minute to Run.

Here is the Direct Link :-
http://www.mytempdir.com/215910

You will Need to Enter the Password :-
649TriplesPAB

I have Checked Out the Link and Password and Everything Seems to be OK.

Have Fun Everybody!.
All the Best.
PAB
:wavey:

649winner · Oct 21, 2005

it tell me not available

PAB · Oct 22, 2005

Hi,

Has Anybody Else had Problems with the Download?.

All the Best.
PAB
:wavey:

649winner · Oct 22, 2005

PAB said:
Hi,

Has Anybody Else had Problems with the Download?.

All the Best.
PAB

Thanks Pab, works now

bloubul · Oct 24, 2005

PAB

No problems at all. Thanks.

Have you ever tried to write a macro to find all overdue numbers in a set range, E.g. 26 past draws?

If you have please post it for us if you WILL.

BlouBul

PAB · Oct 24, 2005

Hi Everyone,

One thing I did Forget to Mention.
The Download Link gets Deleted After 14 Days I think it is.

All the Best.
PAB
:wavey:

veronica21 · Oct 27, 2005

Has anyone won using Lotto Pro 2005 software?

bloubul · Oct 28, 2005

PAB

Will you please help me with this formula.
I wan't to know which number in the current draw was a repead from the previous draw. My database lies in C2:H506. In columns K

I got this formula's but it only indicates a repead, but not the actual number what I wan't.

In K3 '=IF(OR(C3=$C2,C3=$D2,C3=$E2,C3=$F2,C3=$G2,C3=$H2),1,)
In L3 '=IF(OR(D3=$C2,D3=$D2,D3=$E2,D3=$F2,D3=$G2,D3=$H2),1,)
In M3 '=IF(OR(E3=$C2,E3=$D2,E3=$E2,E3=$F2,E3=$G2,E3=$H2),1,)
In N3 '=IF(OR(F3=$C2,F3=$D2,F3=$E2,F3=$F2,F3=$G2,F3=$H2),1,)
In O3 '=IF(OR(G3=$C2,G3=$D2,G3=$E2,G3=$F2,G3=$G2,G3=$H2),1,)
In P3 '=IF(OR(G3=$C2,G3=$D2,G3=$E2,G3=$F2,G3=$G2,G3=$H2),1,)

Thanks

BlouBul

PAB · Oct 28, 2005

Hi BlouBul,

bloubul said:
Will you please help me with this formula.
I wan't to know which number in the current draw was a repeat from the previous draw. My database lies in C2:H506.

These will do what you want.

In K3 :-
=IF(OR(C3=$C2,C3=$D2,C3=$E2,C3=$F2,C3=$G2,C3=$H2),C3,"")
In L3 :-
=IF(OR(D3=$C2,D3=$D2,D3=$E2,D3=$F2,D3=$G2,D3=$H2),D3,"")
In M3 :-
=IF(OR(E3=$C2,E3=$D2,E3=$E2,E3=$F2,E3=$G2,E3=$H2),E3,"")
In N3 :-
=IF(OR(F3=$C2,F3=$D2,F3=$E2,F3=$F2,F3=$G2,F3=$H2),F3,"")
In O3 :-
=IF(OR(G3=$C2,G3=$D2,G3=$E2,G3=$F2,G3=$G2,G3=$H2),G3,"")
In P3 :-
=IF(OR(H3=$C2,H3=$D2,H3=$E2,H3=$F2,H3=$G2,H3=$H2),H3,"")

Just Copy Down as Required.
You should have Started a New Thread for this.
This Thread is for " Macro to Calculate Triples Excluding & Including the Bonus Number ".

I Hope this Helps.
All the Best.
PAB
:wavey:

bloubul · Oct 31, 2005

PAB

Thanks for the formula PAB.
(Sorry for my mistake)

BlouBul

Macro to Calculate Triples Excluding & Including the Bonus Number

PAB

Member

Grandmaster

Member

gopal72

Member

gopal72

Member

PAB

Member

649winner

Member

PAB

Member

649winner

Member

bloubul

Member

PAB

Member

veronica21

Member

bloubul

Member

PAB

Member

bloubul

Member

Sidebar