kapatma tuşuna makro

[d_yuksel]

arkadaşlar...

excel kapatılırken belirli makroların çalışmasını istiyorum. bunu nasıl yaparım yardımcı olursanız çok sevinirim.

 

[uzmanamele]

merhaba
Auto_Close altında yazmayı deneyin.
örnek dosya eklerseniz arkadaşlarımız yardımcı olacaklardır.

 

[ECYavuz]

Bu Basit bir Kapanma örneği ama kapanırken hangi 'belirli Makrolar çalışacak aceba!!!'


Private Sub GetOut_Click()
Dim cevap
cevap = (MsgBox("Yaptığınız değişiklikleri kaydetmek istiyor musunuz?", vbYesNoCancel + vbCritical, "Çıkış"))
If cevap = vbYes Then
ThisWorkbook.Close Savechanges:=True
ElseIf cevap = vbNo Then
ThisWorkbook.Close Savechanges:=False
Else
Exit Sub
End If
Set herneatandıysa = Nothing
Set diğerherneatanan= Nothing
Application.Visible = True
Application.Quit
ActiveWorkbook.Close True
End Sub

 

[d_yuksel]

auto close ile yapıyorum ama kapatırken çalışmıyor neden? bunu çözemiyorum...

 

[ECYavuz]

Siz en iyisi bir CommandButton Ekleyip benim verdiğim kodları oraya atayın.

 

[safa_acar2850]

Bu Basit bir Kapanma örneği ama kapanırken hangi 'belirli Makrolar çalışacak aceba!!!'


Private Sub GetOut_Click()
Dim cevap
cevap = (MsgBox("Yaptığınız değişiklikleri kaydetmek istiyor musunuz?", vbYesNoCancel + vbCritical, "Çıkış"))
If cevap = vbYes Then
ThisWorkbook.Close Savechanges:=True
ElseIf cevap = vbNo Then
ThisWorkbook.Close Savechanges:=False
Else
Exit Sub
End If
Set herneatandıysa = Nothing
Set diğerherneatanan= Nothing
Application.Visible = True
Application.Quit
ActiveWorkbook.Close True
End Sub

bu uzun ve karışık olanı daha kolayı var

 

[safa_acar2850]

sub kapa ()

mesaj=msgbox("Kapatmak istediğinize emin misiniz ?", vbYesNo)
if mesaj = vbNo then exit sub
msgbox "Çalışma sayfası kapanacak",vbİnformation,"UYARI"
Activeworkbook.save
Application.Quit

end sub