tekrar soru istenilen kadar tekrar

[modoste]

merhaba sayın hocalarım
çok öncelerde eski çalıştığım firmamda oluşturulacakacak çizelgeleri kendim yaptığımdan dolayı sayın hocalarımın yardımlarıyla birçok çalışma yaptım ve çok faydalı olmuştu nerdeyse her sorduğum sorumun yanıtını çizelgelerime eklemişimdir

şu an çalıştığım firmada ise çok eskilerden yapılmış ve biçimleri değiştirilemeyen tablolarla içiçe kaldım bunun neticesinde
bazen dosya ekleyemiyorum sayfa o kadar dolu ki neresini sileyim gizleyeyim boyutu kısaltayım

bu sorumda yine daha öncelerde sordum sayın hocalarım yardımcı sütunlar ekleyerek çözdüler ama benim uygulamam gereken sadece 1 sütunluk yer var

ekli tablomda Çözüm-1 sekmesi daha önce sorup cevabını aldığım hali
soru-2 sekmesi de sorumu tekrar sorduğum hali
sorumu tekrar edersem C2 den başlayan aşağıya doğru devam eden listede B sütununda "T" yazan verileri B1 hücresine yazdığım sayı kadar tekrar etmesi
azcık sorumu değiştirdim alternatifi artırdım bir hücreye sayı yazdım (B1=2) o sayı kadar veriyi altalta yazarak listelemeye devam etmesi.
ve Liste C sütununda sonuçları D sütununda tek formülle yapılması gerekiyo gibi
çözüm üretilebilir mi

 

[Mustafa MUTLU]

Bir Modüle

Sub Listele()
Sheets("Soru-2").Range("D2:D65536").ClearContents
MM = 2
For MSTF = 2 To Sheets("Soru-2").Cells(65536, "C").End(xlUp).Row
If Sheets("Soru-2").Cells(MSTF, "B") = "T" Then
For MSTF2 = 1 To [B1]
Sheets("Soru-2").Cells(MM, "D") = Sheets("Soru-2").Cells(MSTF, "C")
MM = MM + 1
Next
Else
Sheets("Soru-2").Cells(MM, "D") = Sheets("Soru-2").Cells(MSTF, "C")
MM = MM + 1
End If
Next
MsgBox "İşleminiz Tamamlanmıştır.", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"
End Sub

Bir düğmeye bu kodu ata tıkladığınızda işlemi yapar.

 

[modoste]

makro çözüm için teşekkür ederim ama
makro kullanmadan formülle çözümü gerekiyo

 

[modoste]

dosyamı tekrar ekliyorum sayın hocalarım çözüm bekliyorum

 

[unreal_avci]

inceleyebiirsiniz.

 

[modoste]

teşekkür ederim sayın unreal_avci