Sub Create3Groups_Sum_Combination()
Sheets("Sheet1").Select
Range("G2:T65001").Select
Selection.ClearContents
Range("G17").Select
y = 7 'Start Combination from Column 7
Dim x1 As Long
Dim x2 As Long
Dim x3 As Long
Dim x4 As Long
Dim x5 As Long
Dim x6 As Long
Dim x7 As Long
Dim x8 As Long
Dim x9 As Long
Dim x10 As Long
Dim x11 As Long
Dim x12 As Long
Dim x13 As Long
Dim x14 As Long
Dim mynumbers As Variant
Dim check As Long
Dim nextrow As Long
Dim lastrow As Long
check = Range("a1").Value
mynumbers = Range("b3:d16").Value
For x1 = 1 To 3
For x2 = 1 To 3
For x3 = 1 To 3
For x4 = 1 To 3
For x5 = 1 To 3
For x6 = 1 To 3
For x7 = 1 To 3
For x8 = 1 To 3
For x9 = 1 To 3
For x10 = 1 To 3
For x11 = 1 To 3
For x12 = 1 To 3
For x13 = 1 To 3
For x14 = 1 To 3
If (mynumbers(1, x1) + mynumbers(2, x2) + mynumbers(3, x3) + mynumbers(4, x4) + mynumbers(5, x5) + mynumbers(6, x6) + mynumbers(7, x7) + mynumbers(8, x8) + mynumbers(9, x9) + mynumbers(10, x10) + mynumbers(11, x11) + mynumbers(12, x12) + mynumbers(13, x13) + mynumbers(14, x14)) = check Then
If x = 65000 Then
x = 0
y = y + 23
End If
x = x + 1
Cells(x + 1, y).Value = mynumbers(1, x1)
Cells(x + 1, y + 1).Value = mynumbers(2, x2)
Cells(x + 1, y + 2).Value = mynumbers(3, x3)
Cells(x + 1, y + 3).Value = mynumbers(4, x4)
Cells(x + 1, y + 4).Value = mynumbers(5, x5)
Cells(x + 1, y + 5).Value = mynumbers(6, x6)
Cells(x + 1, y + 6).Value = mynumbers(7, x7)
Cells(x + 1, y + 7).Value = mynumbers(8, x8)
Cells(x + 1, y + 8).Value = mynumbers(9, x9)
Cells(x + 1, y + 9).Value = mynumbers(10, x10)
Cells(x + 1, y + 10).Value = mynumbers(11, x11)
Cells(x + 1, y + 11).Value = mynumbers(12, x12)
Cells(x + 1, y + 12).Value = mynumbers(13, x13)
Cells(x + 1, y + 13).Value = mynumbers(14, x14)
End If
Next x14
Next x13
Next x12
Next x11
Next x10
Next x9
Next x8
Next x7
Next x6
Next x5
Next x4
Next x3
Next x2
Next x1
'Dim lngLastRow As Long
'lngLastRow = Cells(Rows.Count, "L").End(xlUp).Row
'Range("S2:S" & lngLastRow).Formula = "=IF($L2="""","""",SUM(L2:R2))"
'Range("S2:S" & lngLastRow) = Range("S2:S" & lngLastRow).Value
'Range("W2:W10").Formula = "=IF(V2="""","""",COUNTIF($L$2:$L$65001,V2))"
'Range("W2:W10") = Range("W2:W10").Value
'--------------------------------------------------------------------------------------------
'Dim lngLastRow1 As Long
'lngLastRow1 = Cells(Rows.Count, "AI").End(xlUp).Row + 1
'Range("AP2:AP" & lngLastRow1).Formula = "=IF($AI2="""","""",SUM(AI2:AO2))"
'Range("AP3:AP" & lngLastRow1) = Range("AP3:AP" & lngLastRow1).Value
'Range("AT2:AT10").Formula = "=IF(AS2="""","""",COUNTIF($AI$2:$AI$65001,AS2))"
'Range("AT2:AT10") = Range("AT2:AT10").Value
'--------------------------------------------------------------------------------------------
'Dim lngLastRow2 As Long
'lngLastRow2 = Cells(Rows.Count, "BF").End(xlUp).Row + 1
'Range("BM2:BM" & lngLastRow2).Formula = "=IF($BF2="""","""",SUM(BF2:BL2))"
'Range("BM3:BM" & lngLastRow2) = Range("BM3:BM" & lngLastRow2).Value
'Range("BQ2:BQ10").Formula = "=IF(BP2="""","""",COUNTIF($BF$2:$BF$65001,BP2))"
'Range("BQ2:BQ10") = Range("BQ2:BQ10").Value
[COLOR=#000000]End Sub[/COLOR]
