For döngüsü ile sıralamayı gösterme

[endmüh16]

bir atama problemi yaptığım için atanan işlerin hangi makinada hangi sırada yapıldığını yazmam lazım iş sayısı kadar sıra sayısı var her iş her makinada denendiği için böyle yazdırmam gerekiyor. 3 tane makina için denemem lazım.iş sayısı dinamik olarak değişmektedir. Excel dosyamda el ile yaptım ama for döngüleriyle kurabileceğimi söylediler ama yapamadım. Yardımcı olursanız çok sevinirim

 

[AdemCan]

Sayfa1 in kod bölümüne ekleyip dener misiniz?

Option Explicit
Sub sirala()
Dim b As Integer, i As Integer, m As Integer, s As Integer
Dim t As Integer, x As Integer, y As Integer, z As Integer
Dim son As Integer, satir As Integer

Application.ScreenUpdating = False
Range("K2:M" & Range("K" & Rows.Count).End(3).Row + 2).Clear

i = Range("A" & Rows.Count).End(3).Value 'iş sayısı
m = 3  'makina sayısını hücreden de alabilirsiniz Range("B2").Value gibi
son = i * i * m

    For y = 1 To son
        z = z + 1
        If z > i Then GoTo bitti
            For x = 1 To i * m
                t = t + 1: s = 0
                If t > m Then GoTo devam
                    For b = 1 To i
                        satir = Range("K" & Rows.Count).End(3).Row + 1
                        s = s + 1
                            Cells(satir, "K").Value = z
                            Cells(satir, "L").Value = t
                            Cells(satir, "M").Value = s
                    Next b
            Next x
devam:
    t = 0
    Next y
bitti:

b = 0: i = 0: m = 0: s = 0
t = 0: x = 0: y = 0: z = 0
son = 0: satir = 0
Application.ScreenUpdating = True
End Sub

 

[endmüh16]

denedim ama şöyle bir sıkıntı oldu mesela 4 işi yazdırdı 5 iş yaptım 4 işin bitiminden sonra 5 işi yazdırıyor bunu nasıl halledebilirim

 

[AdemCan]

4 işin bitiminden sonra 5 işi yazdırıyor

Bu dediğinizi anlamadım. Oluşan hatayı ekleyerek dosyanın son halini paylaşır mısınız?

 

[endmüh16]

çözdüm sorunu çok teşekkür ederim yardımlarınız için

 

[AdemCan]

Rica ederim, sorunun çözümünü paylaşır mısınız?

 

[endmüh16]

sizin kodunuzla ilgili değil ben bir yerleri yanlış yazmışım