Permutation in excel

[Sweden]

Hallo everybody!

I´ve a vba code now that can generate combinations in excel but when it
will com to the end of the rows, that means 65500(or something like
that), I have built in code that order it to cintinue on another
worksheet and it works but something is wrong. In the first worksheet
it writes all combinations OK but on the next worksheet it do not work,
what is wrong?
Do any body can help with sloving this problem?
Here is the code:

Sub aa()
Dim i, j, k, l, m, n, o, rw, summ, summ133, dif

rw = 1

For i = 1 To 19

For j = i + 1 To 24

For k = j + 1 To 26

For l = k + 1 To 30

For m = l + 1 To 33

For n = m + 1 To 34

For o = n + 1 To 35

summ = i + j + k + l + m + n + o

dif = o - i

If ((summ > 98) And (summ < 106) And (dif > 13)) Then

Cells(rw, 1) = i

Cells(rw, 2) = j

Cells(rw, 3) = k

Cells(rw, 4) = l

Cells(rw, 5) = m

Cells(rw, 6) = n

Cells(rw, 7) = o

rw = rw + 1

End If

If ((summ133 = 133) And (dif > 13)) Then

Worksheets("Blad2").Cells(rw, 1) = i

Worksheets("Blad2").Cells(rw, 1) = j

Worksheets("Blad2").Cells(rw, 1) = k

Worksheets("Blad2").Cells(rw, 1) = l

Worksheets("Blad2").Cells(rw, 1) = m

Worksheets("Blad2").Cells(rw, 1) = n

Worksheets("Blad2").Cells(rw, 1) = o

rw = rw + 1

End If

Next o

Next n

Next m

Next l

Next k

Next j

Next i

End Sub

 

[Conrad Carlberg]

It appears that on the worksheet named Blad2 you're repeatedly overwriting
the values that you want -- your code is not incrementing the target row.

 

[Conrad Carlberg]

Or, for that matter, the target column.

--
C^2
Conrad Carlberg

Excel Sales Forecasting for Dummies, Wiley, 2005

It appears that on the worksheet named Blad2 you're repeatedly overwriting
the values that you want -- your code is not incrementing the target row.