Düşeyaradaki Kayıtların Otomatik Yazdırılması

belirli bir listedeki kayıtları her seferinde
düşeyara formülü ile getirebiliyorum
ancak bunu kod ile otomatik yazdırmak isteğimde
yazdırmıyor aynı sayfayı veriyor

100 adet kayıt E1 hücresindeki başvuru numarası
döngü ile otomatik olarak listede kaç kayıt varsa o kadar
sayfa yazdırmak istiyorum. her sayfada veriye göre kayıt olmalı
aynı kayıt olmamalı..

Bu kodu ekleyip denermisiniz.

(21/05/2024, 11:09)erhan3479 yazdı: Bu kodu ekleyip denermisiniz.

PHP Kod:

Sub bosluksay()
Dim son
Dim i
son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
For i = 2 To son
Sheets("Sayfa2").Cells(1, "e").Value = Sheets("Sayfa1").Cells(i, "a").Value
cevap = MsgBox(Sheets("Sayfa2").Cells(1, "e").Value & "Başvuru Numarasını Yazdırmak İstiyormusunuz?", vbYesNo + vbQuestion, "ONAY")
If cevap = vbNo Then
GoTo atla
Else

 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
atla:
End If
Next
End Sub 


her sayfanın onayı istenmeden yazdırmak mümkün mü hocam
tüm sayfaları tek seferde yazdırmak?

(21/05/2024, 11:09)erhan3479 yazdı: cevap = MsgBox(Sheets("Sayfa2").Cells(1, "e").Value & "Başvuru Numarasını Yazdırmak İstiyormusunuz?", vbYesNo + vbQuestion, "ONAY")
If cevap = vbNo Then
GoTo atla
Else

Cevap gelmemiş ama yukardaki ve alttaki yerleri siliniz.

atla:
End If

sayın feraz yeni test edebildim ellerinize sağlık tam istediğim gibi olmuş

(22/05/2024, 21:54)karaayhan yazdı: sayın feraz yeni test edebildim ellerinize sağlık tam istediğim gibi olmuş

Rica ederiz,esasen ben fazla birşey yapmadım