Metinsel Hücreyi Çarpma

[kasisar]

Sayfa1 de B2 hücresinde adedi yazılı A2 hücresindeki metinsel ifadeyi adedi kadar (B2 de yazan) Sayfa2 ye alt alta yazdırmak/kopyalamak için bir formül var mıdır?
Resim 1
Resim 2

 

[Ali]

Bir modüle aşağıdaki kodları ekleyip çalıştırın.

Sub LİSTELE()
    Columns(3).ClearContents
    Satır = 2
    For X = 2 To [A65536].End(3).Row
    If Cells(X, 1) <> "" And Cells(X, 2) <> "" Then
    Range(Cells(Satır, 3), Cells(Satır - 1 + Cells(X, 2), 3)) = Cells(X, 1)
    Satır = [C65536].End(3).Offset(1).Row
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[kasisar]

Öncelikle teşekkür ederim cevabınız için ama dediğinizi nasıl yapabilirim?

 

[Ali]

ALT+F11 tuşlarına basarsanız VBA kısmı açılacaktır.

Insert-Modüle diyerek bir Modüle ekleyeceksiniz.

Örnek dosyayı indirip inceleyiniz. Listele butonuna tıklayın. Aşağıdaki linke ekledim.

İndir Adet kadar adları listele

Dosyayı indir Adet kadar adları listele

dosya.co

 

[kasisar]

Teşekkür ederim.