Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-12-2013, 10:10   #1
soyga0123
 
soyga0123 kullanıcısının avatarı
 
Giriş: 25/10/2013
Şehir: TÜRKİYE
Mesaj: 97
Excel Vers. ve Dili:
Excel 2007 - Türkçe
Post Yazdır butonuna "istediğimiz sayıda yazdırma" komutu?

Merhaba,
sayfaya eklenen yazdır butonuna tıklandığında "Kaç kopya yazdırılsın?" diye sorulsun ve girilen sayıda yazdırılması sağlansın.
Bir de rakam girilmediğinde "Lütfen rakam olarak girin." uyarısı versin istiyorum.
Son olarak mümkünse yazdırma sayısı girilip tamam dendiğinde ör: "5 kopya yazdırmak istediğinize emin misiniz?"(EVET/HAYIR/İPTAL) olursa çok daha yararlı olur. Şimdiden teşekkür ediyorum yardımlarınız için.

(Forumdaki örneklere baktım ancak kod bilgim olmadığı için kendime göre uyarlayamadım.)
soyga0123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 11:55   #2
acar6783
 
Giriş: 06/07/2008
Şehir: ANKARA--ZONGULDAK
Mesaj: 1,447
Excel Vers. ve Dili:
OFFİCE 2007- TÜRKÇE
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub yazdır()
Dim adet As String, sayi As Byte
adet = InputBox("Kaç kopya yazdırılsın ?", "YAZDIRMA")
If Not IsNumeric(adet) Then MsgBox "Lütfen rakam olarak girin"
If sayı = "0" Then Exit Sub


MsgBox adet & "kopya yazdırmak istediğinize emin misiniz?", vbYesNoCancel
If vbNo Then Exit Sub
If vbCancel Then Exit Sub
If vbYes Then ActiveSheet.PrintOut Copies:=adet, Collate:=True

End Sub

Denermisiniz..
acar6783 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 13:23   #3
soyga0123
 
soyga0123 kullanıcısının avatarı
 
Giriş: 25/10/2013
Şehir: TÜRKİYE
Mesaj: 97
Excel Vers. ve Dili:
Excel 2007 - Türkçe
Varsayılan

Alıntı:
acar6783 tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub yazdır()
Dim adet As String, sayi As Byte
adet = InputBox("Kaç kopya yazdırılsın ?", "YAZDIRMA")
If Not IsNumeric(adet) Then MsgBox "Lütfen rakam olarak girin"
If sayı = "0" Then Exit Sub


MsgBox adet & "kopya yazdırmak istediğinize emin misiniz?", vbYesNoCancel
If vbNo Then Exit Sub
If vbCancel Then Exit Sub
If vbYes Then ActiveSheet.PrintOut Copies:=adet, Collate:=True

End Sub

Denermisiniz..
Hocam tam istediğim formatta, her şey gayet normal görünüyor ancak yazdırma işlemini yapmıyor. (Makro etkin)
soyga0123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 14:14   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,814
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Alternatif olarak aşağıdaki kodu deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Yazdir()
    Adet = Application.InputBox("Geçerli sayfadan kaç kopya çıktı almak istiyor sunuz?", "Çıktı Adedi", 1)
    If Adet = False Then Exit Sub
    If Not IsNumeric(Adet) Then GoTo 10
    If Adet > 0 Then
        Onay = MsgBox(Adet & " kopya yazdırmak istediğinize emin misiniz?", vbExclamation + vbYesNo)
        If Onay = vbYes Then
            ActiveSheet.PrintOut Copies:=Val(Adet), Collate:=True
            MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
        Else
            MsgBox "Yazdırma işlemi iptal edilmiştir!", vbCritical
        End If
    Else
10      MsgBox "Hatalı çıktı adedi girişi yaptınız!" & Chr(10) & "İşleminiz iptal edilmiştir."
    End If
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 14:57   #5
soyga0123
 
soyga0123 kullanıcısının avatarı
 
Giriş: 25/10/2013
Şehir: TÜRKİYE
Mesaj: 97
Excel Vers. ve Dili:
Excel 2007 - Türkçe
Varsayılan

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Alternatif olarak aşağıdaki kodu deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Yazdir()
    Adet = Application.InputBox("Geçerli sayfadan kaç kopya çıktı almak istiyor sunuz?", "Çıktı Adedi", 1)
    If Adet = False Then Exit Sub
    If Not IsNumeric(Adet) Then GoTo 10
    If Adet > 0 Then
        Onay = MsgBox(Adet & " kopya yazdırmak istediğinize emin misiniz?", vbExclamation + vbYesNo)
        If Onay = vbYes Then
            ActiveSheet.PrintOut Copies:=Val(Adet), Collate:=True
            MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
        Else
            MsgBox "Yazdırma işlemi iptal edilmiştir!", vbCritical
        End If
    Else
10      MsgBox "Hatalı çıktı adedi girişi yaptınız!" & Chr(10) & "İşleminiz iptal edilmiştir."
    End If
End Sub
Korhan Ayhan hocam çok çok teşekkür ediyorum tam istediğim gibi olmuş.
acar6783 hocam size de ayrıca teşekkür ediyorum ilgi ve alakanız için.
soyga0123 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 21:32


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden