Kapanış Mesajı

Katılım
31 Ağustos 2005
Mesajlar
1,534
Excel Vers. ve Dili
Excel 2003 - Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
 
Katılım
31 Ağustos 2005
Mesajlar
1,534
Excel Vers. ve Dili
Excel 2003 - Türkçe
Ö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

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
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.
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
[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.
 
Katılım
31 Ağustos 2005
Mesajlar
1,534
Excel Vers. ve Dili
Excel 2003 - Türkçe
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

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
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
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
[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]
 
Katılım
31 Ağustos 2005
Mesajlar
1,534
Excel Vers. ve Dili
Excel 2003 - Türkçe
Sayın Abdi;

2.kod işimi gördü.

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

Teşekkür ve selamlarımla....
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
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.
 
Üst