tekrar etme sayısı kadar listele

[eyazici]

tekrar etme sayısı kadar listelemem lazım acillll

arkadaşlar bir veriyi tekrar ettiği sayı kadar altalta kopyalayacak bir makroya ihtiyacım var.

örnek olarak şöyle;

elma 3
armut 2

halinde olan veriyi

elma 3
elma
elma
armut 2
armut

şekline getirecek.

 

[Necdet]

Merhaba,

Bu verilerin başlığı vs si yok mu?

Yardımcı olacak arkadaş A sütununu düşünür size Z sütunu gerekir, Belki sağında solunda dolu veriler vardır vs vs vs.

Gerçek ve hızlı sonuca ancak örnek dosya ile ulaşabilirsiniz.

 

[eyazici]

çok haklısınız şimdi örnek dosyayı ekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Cogalt()
 
    Dim i   As Long, _
        j   As Long, _
        Adt As Integer
 
    Application.ScreenUpdating = False
    Range("E2:F" & Rows.Count).ClearContents
 
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Adt = Val(Cells(i, "B"))
        j = Cells(Rows.Count, "E").End(3).Row + 1
        Range("A" & i & ":B" & i).Copy Range("E" & j)
        If Adt > 1 Then Range("E" & j & ":E" & j + Adt - 1).FillDown
    Next i
 
    Application.ScreenUpdating = False
    MsgBox "İşlem Tamamdır...", vbInformation
 
End Sub

 

[eyazici]

teşekkür ederim..

 

[Necdet]

teşekkür ederim..

Güle güle kullanınız.