Excel Permutations

You could use nested for loops to try all the possible permutations:

Please Login or Register  to view this content.

Thank you very much! It worked! I kept trying to think of a way to do it without nested for statements but this is so much simpler. I ended up with the following code: (I don't know how to add the code tags like you did)

Sub permTry()
'define all variables
Dim c1 As Integer, c2 As Integer, c3 As Integer
Dim c4 As Integer, c5 As Integer, c6 As Integer
Dim c7 As Integer, c8 As Integer, c9 As Integer
Dim c10 As Integer, c11 As Integer, c12 As Integer

'reset all cells to 1 (probably not needed but just in case
Worksheets("Output 5").Cells(28, 2).Value = 1
Worksheets("Output 5").Cells(28, 3).Value = 1
Worksheets("Output 5").Cells(28, 4).Value = 1
Worksheets("Output 5").Cells(28, 5).Value = 1
Worksheets("Output 5").Cells(28, 6).Value = 1
Worksheets("Output 5").Cells(28, 7).Value = 1
Worksheets("Output 5").Cells(28, 8).Value = 1
Worksheets("Output 5").Cells(28, 9).Value = 1
Worksheets("Output 5").Cells(28, 10).Value = 1
Worksheets("Output 5").Cells(28, 11).Value = 1
Worksheets("Output 5").Cells(28, 12).Value = 1
Worksheets("Output 5").Cells(28, 13).Value = 1


'loop through permutations untill a solution is found
For c1 = 1 To 3
Worksheets("Output 5").Cells(28, 2).Value = c1
For c2 = 1 To 3
Worksheets("Output 5").Cells(28, 3).Value = c2
For c3 = 1 To 3
Worksheets("Output 5").Cells(28, 4).Value = c3
For c4 = 1 To 3
Worksheets("Output 5").Cells(28, 5).Value = c4
For c5 = 1 To 3
Worksheets("Output 5").Cells(28, 6).Value = c5
For c6 = 1 To 3
Worksheets("Output 5").Cells(28, 7).Value = c6
For c7 = 1 To 3
Worksheets("Output 5").Cells(28, 8).Value = c7
For c8 = 1 To 3
Worksheets("Output 5").Cells(28, 9).Value = c8
For c9 = 1 To 3
Worksheets("Output 5").Cells(28, 10).Value = c9
For c10 = 1 To 3
Worksheets("Output 5").Cells(28, 11).Value = c10
For c11 = 1 To 3
Worksheets("Output 5").Cells(28, 12).Value = c11
For c12 = 1 To 3
Worksheets("Output 5").Cells(28, 13).Value = c12 'code to do each time
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c12
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c11
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c10
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c9
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c8
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c7
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c6
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c5
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c4
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c3
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c2
If Worksheets("Output 5").Cells(37, 2) = 0 Then Exit For
Next c1

If Worksheets("Output 5").Cells(37, 2) = 1 Then Worksheets("Output 5").Cells(26, 2).Value = "NO"

End Sub