Verileri artarak ekleme

[makinist]

Ekte gönderdiğim dosyada a sütunundaki verilerin b sütunundaki sayı kadar eklenmesini istiyorum. yardımlarınız için şimdiden tşk.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub LİSTELE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S2.[A:A].ClearContents
    Satır = 1
    For X = 1 To S1.[A65536].End(3).Row
    If S1.Cells(X, 1) <> "" Then
    For Y = 1 To S1.Cells(X, 2)
    S2.Cells(Sat&#305;r, 1) = S1.Cells(X, 1) & Format(Y, "00")
    Sat&#305;r = Sat&#305;r + 1
    Next
    End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub