Mükerrer Oluşturma

[izcik]

Merhabalar

A sütununda ürün kodları,
B sütununda kaç tekrar oluşması gerektiği yazılıdır.

Düğmeye basıldığında E sütunundaki gibi oluşabilmesi için gerekli kodları rica ederim.

ornek.xls dosyasını indir - download

ornek.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Muzaffer Ali]

Merhabalar.
Buyurunuz efendim.

Sub Test()
    Dim Bak As Integer
    Dim Tekrarla As Integer
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        For Tekrarla = 1 To Cells(Bak, "B")
            Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E") = Cells(Bak, "A")
        Next
    Next
End Sub

 

[izcik]

Merhabalar.
Buyurunuz efendim.

Sub Test()
    Dim Bak As Integer
    Dim Tekrarla As Integer
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        For Tekrarla = 1 To Cells(Bak, "B")
            Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E") = Cells(Bak, "A")
        Next
    Next
End Sub

Dalgalıkur uzmanım teşekkürler, hemen deniyorum ????

 

[izcik]

Olmuştur uzmanım
Sağolunuz

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.