List out 6 45 lottery combinations only those with the sum what you likePrev TopicNext Topic

• timmsy

  

  Australia
  Member #154,621
  April 23, 2014
  228 Posts
  Offline
  Sep 27, 2017, 8:56 am

  ▲▼

  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 Integer
  Dim N5 As Integer, Sum5 As Integer
  Dim N6 As Integer
  Dim iRow As Long
  
  Total = CInt(InputBox("Enter desired total", "Combos", 60))
  If Total = 0 Then Exit Sub
  
  iRow = 0
  For N6 = (Total + 15) \ 6 To 49
  For N5 = 5 To N6 - 1
  Sum5 = N5 + N6
  For N4 = 4 To N5 - 1
  Sum4 = Sum5 + N4
  For N3 = 3 To N4 - 1
  Sum3 = Sum4 + N3
  For N2 = 2 To N3 - 1
  Sum2 = Sum3 + N2
  N1 = Total - Sum2
  If N1 < 1 Then Exit For
  If N1 < N2 Then
  
  If iRow = 65536 Then
  MsgBox iRow & " combinations found.", vbInformation, "Combos"
  Exit Sub
  End If
  
  iRow = iRow + 1
  
  Cells(iRow, 1) = N1
  Cells(iRow, 2) = N2
  Cells(iRow, 3) = N3
  Cells(iRow, 4) = N4
  Cells(iRow, 5) = N5
  Cells(iRow, 6) = N6
  End If
  Next N2
  Next N3
  Next N4
  Next N5
  Next N6
  
  MsgBox iRow & " combinations found.", vbInformation, "Combos"
  
  End Sub