Kaydet kapa

[16prens]

selam
arkadaşlar çalışma sayfası yapıyorum macrodaNda hiç anlamıyorum
yaptığım çalışma sayfasını işim bitince tek butonla hem kapamak hemde kaydetmek istiyorum aynı butona birde not ekleye birimiyiz.
kapatırken mesaj sayfası açılsın
teşekkürler

 

[Mustafa MUTLU]

Sub Kayıt()
ActiveWorkbook.Save
Application.Quit
MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU"
End Sub

Bu Kodu Modül e ekle
Sayfaya bir düğme koy
Bu Maksoyuda o düğmeye ata.

 

[16prens]

Teşekkür ederim eline sağlık
kaptırken sayfanın neresinde olursam olayım ANASAYFA A1 SUTUNUNA nasıl yönlendirilir.

 

[Mustafa MUTLU]

Kitabı kapatmayacaksan

Option Explicit
Sub Kayıt()
ActiveWorkbook.Save
Sheets("ANASAYFA").Select
Range("A1").Select
MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU"
End Sub

Bu Kodu Kullan