belirlediğim sayı kadar bir veriyi çoğaltmak

[makinist]

İyi geceler ekteki dosyada b sütunundaki sayıyı c sütununda yazan sayı kadar a sütuna işlemek istiyorum örenğin b4 yazan 1 rakamını a1 hücresinden başlayarak 37 kez yazmasını o bitince 2 rakamını 5 kez yazmasını istiyorum.
nasıl yaparım yardımcı olursanız minnettar olurum.

 

[Ergün Güler]

Selam,
örnek dosyanızı 2007 versiyon olduğu için açamıyorum. Ancak,
B1'de 1 olsun C1'de 37 olsun
D1'de 2 olsun E1'de 5 olsun.

A1 hücresine

=EĞER(SATIRSAY($A$1:$A1)<=$C$1;$B$1;EĞER(SATIRSAY($A$1:$A1)<=$C$1+$E$1;$D$1;""))

yazıp aşağıya doğru çekiniz.

 

[makinist]

bunu bir makroyla yapmak mümlün değilmi bunu örnek olsun diye 10 satır vermiştim asıl verim daha uzun

 

[Ergün Güler]

Verdiğim formülü denediniz mi?

Makro istiyorsanız sorunuzu Makro altında sorunuz.
Excele yeni başlayanlar altında sormayınız.

Dosyanızı açamadığmı belirtmiştim.
Örnek dosyanızı 2003 formatında kaydedip güncelleyiniz. Zira çözüm bulabilecek kişilerin çoğu dosyanızı açamayacaktır.
sorunuzdan anlaşıldığı kadar verdiğim formül işinizi görecektir. 65536 satıra kadar çoğaltabilirsiniz.

 

[Orion1]

bunu bir makroyla yapmak mümlün değilmi bunu örnek olsun diye 10 satır vermiştim asıl verim daha uzun

Dosyanız ektedir.

Sub tekrarli_yaz_59()
Dim i As Long, sat As Long, sat2 As Long
Range("A:A").ClearContents
sat = Cells(65536, "B").End(xlUp).Row
If sat < 4 Then Exit Sub
sat2 = 1
For i = 4 To sat
    Range("A" & sat2).Resize(Cells(i, "C").Value, 1) = Cells(i, "B").Value
    sat2 = sat2 + Cells(i, "C").Value
Next i
MsgBox "İşlem Tamamdır." & vbLf & "evrengizlen@hotmail.com" _
, vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[makinist]

Çok teşekkür ederim tam olarak istediğim buydu. elinize sağlık

 

[Orion1]

Çok teşekkür ederim tam olarak istediğim buydu. elinize sağlık

Rica ederim.
İyi çalışmalar.