Gün Sayısı Kadar Hücreyi Doldurma

[Bagcivan]

Üretim süresi kadar günü o model ismi ile doldurmak istiyorum. Bunu nasıl yapabilirim? Yardımcı olabilecek ya da fikiri olan var mı?

Hangi yoldan gideceğime karar veremedim.

 

[Necdet]

Merhaba,

Makrolu Çözüm isterseniz, aşağıdaki kodları deneyiniz.

Sub Doldur()
    
    Dim i   As Long, _
        j   As Integer, _
        Kol As Integer, _
        Sat As Long
    
    Application.ScreenUpdating = False
    
    Sat = Cells(Rows.Count, "A").End(3).Row
    Kol = Cells(2, Columns.Count).End(1).Column
    
    Range(Cells(3, "F"), Cells(Sat, Kol)).ClearContents
    Kol = 6
    
    For i = 3 To Sat
        j = 0
        Do While j < Cells(i, "E")
            If Weekday(Cells(2, Kol), vbMonday) = 7 Then Kol = Kol + 1
            Cells(i, Kol) = Cells(i, "B")
            j = j + 1
            Kol = Kol + 1
        Loop
        Kol = Kol - 1
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlanmıştır...."
    
End Sub

 

[Bagcivan]

Sayın Necdet Yeşertener,

İlginiz ve çözümünüz için Teşekkürler.