AccessTr.neT

Tam Versiyon: Aynı Sayıyı Alt Alta Yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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][Resim: do.php?img=10649][/img]
sheets1 yerine yazılmasını istediğiniz sayfanın adını yazacaksınız
veriler hangi sayfaya yazılacak
Sayfalar: 1 2 3