Montaj hattı denegeleme

[svorm]

Merhaba

İşletme manuel yaptığımız montaj hattı dengeleme işlemini makro ile optimize edebilirmiyim bilemiyorum.
Bu konuda üstadlar yardımcı olabilirseniz sevinirim.
Açıklama ekteki dosyada mevcut.
dosya

Teşekkürler

 

[turist]

Dosya Linki
İndirerek inceleyiniz.

 

[svorm]

Üstad merhaba

İlginiz için teşekkür ederim.
Hat dengeleme yaparken operasyonları çalışanlara paylaştırılması gerekiyor.
Her operasyonu sadece 1 operatör yapabilir şeklinde bakabilirmisiniz.

 

[svorm]

Merhaba

Permütasyon listeleme konusunda bilgi sahibi olan var mı?

 

[svorm]

merhaba

hat dengeleme konusunda bir noktaya kadar geldik,
10 operasyonu 3 kişiye dağıtımını alttaki makro ile gerçekleştirdik.
Operasyon sayısı ve kişi sayısı değişken olduğu için her seferinde makroyu değiştirmemiz gerekiyor.
Buraya değişken atamayı beceremedim
Bu konuda destek olabilirseniz sevinirim.

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