Belirtilen adet kadar çoğaltma

[mbattal]

Merhaba arkadaşlar,
Öncelikle mübarek mevlit kandilinizi kutlar hayırlara vesile olmasını dilerim.


A B
SAYI ADET
1234 15
5678 10
9000 8
5555 11

Yukarıda belirtilen gibi A sütununda sayılar B sütununda ise adetler mevcut. Benim istediğim A sütunundaki sayıları karşılığında (B sütununda) yazan adet kadar alt alta kopyalaması. A1 deki sayı istenen adet kadar kopyalanınca A2 ye geçmesi.
Makro veya formül farketmez

Saygılarımla

 

[Huseyinkis]

Merhaba arkadaşlar,
Öncelikle mübarek mevlit kandilinizi kutlar hayırlara vesile olmasını dilerim.


A B
SAYI ADET
1234 15
5678 10
9000 8
5555 11

Yukarıda belirtilen gibi A sütununda sayılar B sütununda ise adetler mevcut. Benim istediğim A sütunundaki sayıları karşılığında (B sütununda) yazan adet kadar alt alta kopyalaması. A1 deki sayı istenen adet kadar kopyalanınca A2 ye geçmesi.
Makro veya formül farketmez

Saygılarımla

Ekteki Kodu Denermisiniz. C sutununa ekleme yapar.

Sub Cogalt()
For i = 2 To Range("A65536").End(3).Row
For a = 1 To Cells(i, 2).Value
Sonsat = Range("C65536").End(3).Row + 1
Cells(Sonsat, 3).Value = Cells(i, 1).Value
Next a
Next i
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki link işinizi görebilir. İnceleyiniz.

http://www.excel.web.tr/f14/2-tarih-aralyoyndaki-gun-sayysy-kadar-satyr-olu-t95339/sayfa2.html

 

[mbattal]

Çok teşekkür ederim