+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Düşeyaradaki Kayıtların Otomatik Yazdırılması (/konu-duseyaradaki-kayitlarin-otomatik-yazdirilmasi.html)
Düşeyaradaki Kayıtların Otomatik Yazdırılması - karaayhan - 20/05/2024
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ı..
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - erhan3479 - 21/05/2024
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
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - karaayhan - 21/05/2024
(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?
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - feraz - 22/05/2024
(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
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - karaayhan - 22/05/2024
sayın feraz yeni test edebildim ellerinize sağlık tam istediğim gibi olmuş
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - feraz - 23/05/2024
(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
