Belirtilen rakamları alt alta yazdırma

[oguzhan08]

Merhabalar, benim sorum oldukça basit ancak arayıp bulamadım.
Örneğin 3 adet 3 rakamını altalta hücrelere yazdırmak istiyorum, bundan sonra da 2 adet 1 rakamı yazsın. Ve burada geçen 4 ayrı rakamı da her seferinde yeniden belirtebileyim(her seferinde ayrıca 4 hücreye yazdığım değerleri çağırarak yapsın.)

Örnek
3
3
3
1
1

Bunun için for-next döngüsü mü kullanmam gerekir yoksa daha pratik bir yöntem var mıdır? B2deki değeri B3deki değer adedince C sütununa yazdır gibi.

İyi forumlar.

 

[Korhan Ayhan]

Deneyiniz.

Sub TEKRARLI_LİSTE_OLUŞTUR()
    Range("C:C").ClearContents
    Range("C1:C" & Range("B3").Value) = Range("B2").Value
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bzace]

Merhabalar,
Adımları uygulayınız.

• A2:A5 aralığıa çoğaltmak istediğiniz verileri,
• B2:B5 istediğiniz sayılar,
• C2 hücresine formül,

girişlerini yaparak deneyiniz.

=DÜŞEYARA(BAĞ_DEĞ_DOLU_SAY(C1:C$1)+1;
  EĞER({1;0};ALTTOPLAM(9;KAYDIR(B$1;;;SATIR($1:$4)))+1;
A$2:A$5);2)
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Saygılar,
Kafe

Korhan Bey'in mesajını sonradan gördüm.

 

[oguzhan08]

Korhan Bey çok teşekkür ederim harika çalışıyor.Size de teşekkür ederim bzace.

Bir sorum daha olacak A1 sütunundaki değeri B1 sütunundaki değer adedince C1den başlayarak yazdırsa, ardından A2 sütunundaki değeri B2 sütunundaki değer adedince bu daha önce C sütununa yazdığının peşine ekleyerek yazdırmak mümkün müdür?

İyi forumlar dilerim.

 

[Korhan Ayhan]

Deneyiniz.

Sub TEKRARLI_LİSTE_OLUŞTUR()
    Range("C:C").ClearContents
    Son = Cells(Rows.Count, 1).End(3).Row
    Satir = 1
    For X = 1 To Son
        Range("C" & Satir & ":C" & Satir - 1 + Cells(X, 2).Value) = Cells(X, 1).Value
        Satir = Cells(Rows.Count, 3).End(3).Row + 1
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[oguzhan08]

Teşekkür ederim çok faydalı oldu.