Merhaba

ekli dosyada a sutunundaki kodu b sutunundaki sayı kadar alt alta yazdırmak istiyorum.
yardımcı olabilir misiniz

aynı sayfaya mı başka sayfaya mı?

başka sayfa

sorularınızı sorarken biraz daha açıklayıcı olabilirseniz hem çözümü bulması kolaylaşır hem de daha hızlı çözüm üretilebilir
dosyanız xlsx türünde oysa bildiğim kadarıyla excelin kendi içinde bir bu işi yapacak bir fonksiyon olmadığı için Vba kodlarıyla çözülmesi gerekiyor bunun içinde dosyanızın uzantısı xlsm yada xlsb uzantılı olmalı. aşağıdaki kodu sayfaya ekleyeceğiniz bir butona yazmalısınız

Private Sub CommandButton1_Click()

Dim SonStr As Long

SonStr = Worksheets("sayfa2").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

TmpxStr = 2

Worksheets("sheet1").Cells.ClearContents

For xStr = 4 To SonStr

    

    With Worksheets("sheet1")

        .Range("A" & TmpxStr & ":A" & TmpxStr + Worksheets("sayfa2").Range("B" & xStr) - 1) = Worksheets("sayfa2").Range("A" & xStr)

        TmpxStr = TmpxStr + Worksheets("sayfa2").Range("B" & xStr)

        

    End With

Next xStr

MsgBox "Bitti"

End Sub

Hocam exceli makro içerebilen olarak kaydettim. Sayfa1 ve Sayfa2 sekmelerini oluşturup Sayfa1 sekmesinin A sutununa kod B sutununa da sayıyı yazdım ve yine Sayfa1 sekmesine bir buton ekleyip verdiğiniz kodu butona yazdım.
Aşağıdaki hatayı veriyor
[img][/img]

sheets1 yerine yazılmasını istediğiniz sayfanın adını yazacaksınız
veriler hangi sayfaya yazılacak