List out 6 45 lottery combinations only those with the sum what you like

timmsy — Wed, 27 Sep 2017 12:56:47 GMT

won some $$$ on this Little VBA,,, Hope others will too enjoy

Sub Combos_Sum()

' Find all the combinations of six integer numbers, each in the range 1..49,

' that sum to the value of a desired total. A combination may not have two

' numbers that are the same. Results are written to columns A..F of the

' active worksheet.

Dim Total As Integer

Dim N1 As Integer

Dim N2 As Integer, Sum2 As Integer

Dim N3 As Integer, Sum3 As Integer

Dim N4 As Integer, Sum4 As Integ... [ More ]