kaydet ve çık butonu

[abdullah016]

merhaba 200 sayfadan oluşan bir excel'im var.
butona basıldığında tüm sayfaları kaydedip çıkacak bir butona ihtiyacım var yardımcı olursanız sevinirim.

 

[uzmanamele]

merhaba

kaydetme işlemi sayfaları ayrı ayrı kaydetmez, tüm kitap kaydedilmiş olur.

aşağıdaki gibi bir kodu standart bir modüle yazarak düğmeye atayabilirsiniz.

Sub kaydetçık()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

not:
excel2007 kullanıyorsanız dosyanız .xlsx formatında olsa gerek.
kodu çalıştırdığınızda uyarı mesajı alırsınız. devam ederseniz kod çalışır ama makrolar silinecektir.
bunu yapmadan önce dosyanızı .xlsm olarak farklı kaydederseniz uyarı mesajı çıkmaz ve daha sonra kodu sürekli kullanabilirsiniz.

 

[abdullah016]

Merhaba
kaydetme işi tamam fakat sayfadan tam olarak çıkamıyorum.