assembly line balancing

[svorm]

hi

i m working on a factory, we have 12 lines and they have different styles.
i do their line balancings with manually.

i want to see all possible balances with permutations.
There are about between 17-35 workers in each lines.
And each model have diffirent quantitiy of operations.
i know the productivity for each.

Now i need to see best balance plan. so i try to see all permutation list and compare them.

could you help me?
You can see sample file the below link.
http://dosya.co/4f27ojliywhl/Kitap1.xlsx.html



Thanks

 

[svorm]

how can i define parameter for below codes.

there are lots of for next loop, and they should be changable.
i couldt define it.

Sub rapor_calistir()Range("q1") = Now()
    Sheets("Rapor").Range("A2:Z1048576").ClearContents
    a = 2: operator1 = 0: operator2 = 0: operator3 = 0
    For i1 = 1 To 3
        For i2 = 1 To 3
            For i3 = 1 To 3
                For i4 = 1 To 3
                    For i5 = 1 To 3
                        For i6 = 1 To 3
                            For i7 = 1 To 3
                                For i8 = 1 To 3
                                    For i9 = 1 To 3
                                        For i10 = 1 To 3
                                            Sheets("Rapor").Cells(a, 1) = a - 1
                                            Sheets("Rapor").Cells(a, 2) = i1
                                            Sheets("Rapor").Cells(a, 3) = i2
                                            Sheets("Rapor").Cells(a, 4) = i3
                                            Sheets("Rapor").Cells(a, 5) = i4
                                            Sheets("Rapor").Cells(a, 6) = i5
                                            Sheets("Rapor").Cells(a, 7) = i6
                                            Sheets("Rapor").Cells(a, 8) = i7
                                            Sheets("Rapor").Cells(a, 9) = i8
                                            Sheets("Rapor").Cells(a, 10) = i9
                                            Sheets("Rapor").Cells(a, 11) = i10
                                            For i = 1 To 10
                                                ara_toplam = ara_toplam + WorksheetFunction.VLookup(i, Sheets("Data").Columns("A:D"), Sheets("Rapor").Cells(a, i + 1) + 1, False)
                                                If Sheets("Rapor").Cells(a, i + 1) = 1 Then
                                                    operator1 = operator1 + WorksheetFunction.VLookup(i, Sheets("Data").Columns("A:D"), Sheets("Rapor").Cells(a, i + 1) + 1, False)
                                                ElseIf Sheets("Rapor").Cells(a, i + 1) = 2 Then
                                                    operator2 = operator2 + WorksheetFunction.VLookup(i, Sheets("Data").Columns("A:D"), Sheets("Rapor").Cells(a, i + 1) + 1, False)
                                                ElseIf Sheets("Rapor").Cells(a, i + 1) = 3 Then
                                                    operator3 = operator3 + WorksheetFunction.VLookup(i, Sheets("Data").Columns("A:D"), Sheets("Rapor").Cells(a, i + 1) + 1, False)
                                                End If
                                            Next i
                                            Sheets("Rapor").Cells(a, 12) = ara_toplam
                                            Sheets("Rapor").Cells(a, 13) = operator1
                                            Sheets("Rapor").Cells(a, 14) = operator2
                                            Sheets("Rapor").Cells(a, 15) = operator3
                                            Sheets("Rapor").Cells(a, 16) = WorksheetFunction.StDev(operator1, operator2, operator3)
                                            ara_toplam = 0: operator1 = 0: operator2 = 0: operator3 = 0
                                            a = a + 1
                                            
                                        Next i10
                                    Next i9
                                Next i8
                            Next i7
                        Next i6
                    Next i5
                Next i4
            Next i3
        Next i2
    Next i1


End Sub