Kapanış Mesajı

[İsmail Küçükşengün]

Merhabalar;

Aşağıdaki kodu modüle kopyalayıp kullanabiliyorum.

Fakat Userformlarda bulunan "KAPAT" butonuna uyalayamadım.
Yani Formlardaki KAPAT butonuyla çıkmak istediğimizde, ne gibi ilave gereklidir.

Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"………..BÜROSU/ 0212 …………." & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "………. BÜROSU iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

KAPAT Butonlarındaki kod ise:
(Başka kod yazılmıştı. Düzeltildi.)Private Sub CommandButton13_Click()
Cevap = MsgBox(" PROGRAMI KAPATMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ ? ", vbYesNo, "")
If Cevap = vbNo Then Exit Sub

Unload Me
Application.Quit
End Sub


Kodunu kullanmaktayım.

Şimdiden Teşekkürler...

 

[Seyit Tiken]

Bu kodlamayı kendinize uydurunuz.

Private Sub CommandButton1_Click()
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Application.Quit
ActiveWorkbook.Close Save = False
End Sub

"UserForm'un butonuna yapıştırın.

 

[İsmail Küçükşengün]

Özür diliyorum. Kapat butonuna yazdığım kodu (ilk mesajda başka kod yazılmıştı.) DÜZELTTİM.

İstediğim Kapat butonuna tıkladığımda,
Kapatmak istediğinizde emin misiniz. diye sorup evet'i tıkladığımızda, (klasik olan "değişiklileri kaydetmek ister misiniz" ) yerine yukarıda yazlı kapanış mesajının çıkması.

 

[AS3434]

Sn. kucuksengun
Soru iyice karıştı yada ben anlamadım. Kapanış mesajının ""programı kapatmak istediğinizden eminmisiniz" olmasını mı istiyorsunuz.
Eğer öyle ise ilk yazmış olduğunuz koddaki "dosyanızın kaydedilmesini istiyormusunuz" yazısının yerine onu yazın.
İlk yazdığınız kod hem butonla hem de Exceldeki kapat "x" ile çalışıyor zaten. Tek fark butonla kapatırsanız Excel açık kalır.

 

[abdi]

[vb:1:38375e9245]Sub tıklat()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
Select Case MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"………..BÜROSU/ 0212 …………." & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "………. BÜROSU iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")

Case vbYes
ActiveWorkbook.Save
ActiveWorkbook.Close

Case vbNo
Application.DisplayAlerts = False
ActiveWorkbook.Close

End Select
[/vb:1:38375e9245]
sanırım yukarıdaki gibi bir şey istediniz
umarım yararlı olur
çalışmalarınızda başarılar dilerim.

 

[İsmail Küçükşengün]

Cevaplarınıza teşekkürler.

Ben dün akşam, bürodan çıkarken aceleden başka kod yazmıştım. (Tabi yaşlılığında rolü var.)

İstediğim Userformdaki KAPAT butonuna bastığımda
Private Sub CommandButton13_Click()
Cevap = MsgBox(" PROGRAMI KAPATMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ ? ", vbYesNo, "")
If Cevap = vbNo Then Exit Sub

Unload Me
Application.Quit
End Sub

Evet dedikten sonra

Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"………..BÜROSU/ 0212 …………." & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "………. BÜROSU iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

Kodunun çalışması.

Soruyu sorarken karıştırdığım için özürlerimi sunuyorum.
Saygılarımla...

 

[mehmett]

Aşağıdaki gibi deneyin Sn kucuksengun

[vb:1:0fe9773f2b]Private Sub CommandButton13_Click()
Cevap = MsgBox(" PROGRAMI KAPATMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ ? ", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Unload Me
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"………..BÜROSU/ 0212 …………." & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "………. BÜROSU iyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub[/vb:1:0fe9773f2b]

Edit: CommandButton13'ün kodunu yukarıdaki gibi yazdıktan sonra auto_close makrosuna gerek kalmayacak.
mehmett

 

[abdi]

[vb:1:2d28c919e7]Public Sub CommandButton13_Click()
cevap = MsgBox(" PROGRAMI KAPATMAK İSTEDİĞİNİZDEN EMİNMİSİNİZ ? ", vbYesNo, "")
If cevap = vbNo Then Exit Sub

Unload Me
Application.Quit
If cevap = vbYes Then

auto_close
End If
End Sub[/vb:1:2d28c919e7]

 

[İsmail Küçükşengün]

Sayın Abdi;

2.kod işimi gördü.

Daha önce (raporlama konusunda) söylediklerimi aynen tekrar ederim.

Teşekkür ve selamlarımla....

 

[abdi]

Sayın kucuksengun, bende Forumda Emeği geçen tüm arkadaşlara zamanını ayırıp cevap verme nezaketinde bulunan tüm forumdaşlara teşekkür eder
Çalışmalarınızda başarılar dilerim.