Çözüldü Kod isteğime göre çalışsın.

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

Hacı Bayram ÖZKAN

Yeni Üye
Kullanıcı Bilgileri
Katılım
21 Kas 2022
Mesajlar
60
Çözümler
1
Aldığı beğeni
14
Excel Versiyonu
Office 2016 TR
Konuyu Başlatan
Merhaba arkadaşlar; aşağıdaki kod ile isteğimi yapıyorum.
C++:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Benim isteğim şu ek yapmak istiyorum.

Berra = MsgBox("LİSTEYE GÖNDERMEDEN ÖNCE YAZICIDAN ÇIKTI ALDIN MI?...?", vbYesNo, "DİKKAT") If Berra = vbNo Then Exit Sub

Bu satırdan sonra EVET dediğimde sorun yok kod görevini yapıyor.
HAYIR deyince isteğim şöyle olacak, Mesaj "YAZDIRMAK İSTİYOR MUSUNUZ?" Evet yada Tamam diyerek aktif sayfayı yazdırmak istiyorum yazdırıldıktan sonra tekrar yukarıdaki kod çalışsın işlevini yapsın.

Herkese Teşekkür ederim. Kolay gelsin.
 
Tarihe göre sırala Oylara göre sırala
Patron

Patron

Site Dostu
Kullanıcı Bilgileri
Katılım
6 Mar 2021
Mesajlar
2,381
Çözümler
702
Aldığı beğeni
2,783
Excel Versiyonu
Office 2021 TR
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
satırını aşağıdaki gibi değiştirin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
H

Hacı Bayram ÖZKAN

Yeni Üye
Kullanıcı Bilgileri
Katılım
21 Kas 2022
Mesajlar
60
Çözümler
1
Aldığı beğeni
14
Excel Versiyonu
Office 2016 TR
Konuyu Başlatan
Sayın Hocam İCMAL kapalı dosyanın sayfası ben ise Aktif sayfanın yani çalıştığım sayfayı yazdırmak için demiştim. Bunu bu şekilde düzelttim oldu.

If Berra = vbNo Then
If MsgBox("Yazdırmak istiyor musunuz?", vbQuestion + vbYesNo, "YAZDIRMA ONAYI") = vbYes Then
ActiveSheet.PrintOut Copies:=1
Else
Exit Sub
End If
End If

Burada sadece şunu da istiyorum. Öyle bir şey olabilir mi?
Yazdırmak istiyor musunuz? mesajında Evet deyince hem yazıyor hemde kapalı dosyaya kayıt yapıyor, burada aynı mesaja hayır deyince yazmadan yani yazıcıdan çıktı almadan kapalı dosyaya kayıt nasıl yaptırılır. Teşekkürler.
 
Olumlu oy 0 Negatif oyla
Patron

Patron

Site Dostu
Kullanıcı Bilgileri
Katılım
6 Mar 2021
Mesajlar
2,381
Çözümler
702
Aldığı beğeni
2,783
Excel Versiyonu
Office 2021 TR
aşağıdaki 2 satırı silin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst