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
| Bu Konudaki Yorumlar |
|
Düşeyaradaki Kayıtların Otomatik Yazdırılması - Yazar: karaayhan - 20/05/2024, 19:45
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - Yazar: erhan3479 - 21/05/2024, 11:09
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - Yazar: karaayhan - 21/05/2024, 19:46
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - Yazar: feraz - 22/05/2024, 03:54
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - Yazar: karaayhan - 22/05/2024, 21:54
RE: Düşeyaradaki Kayıtların Otomatik Yazdırılması - Yazar: feraz - 23/05/2024, 02:35
|
