Satır tekrarlatmak

[sert_unsuz]

Merhaba,

Benim isteği ilk kolondaki tekrar sayısı kadar, 2.sayfaya aynı kayıtları tekrar ettirererk yazdırılması.
Teşekkür ederim.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub tekrarla()
say = 1
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For i = 2 To s1.Range("a65536").End(3).Row
adet = s1.Cells(i, "a").Value
For j = say To say + adet - 1
s1.Range(Cells(i, "b"), Cells(i, "d")).Copy s2.Range("a" & j)
Next j
say = say + adet
Next i
End Sub