"Kaydet ve kapat" komutu hakkında yardım...

[sinbade]

Herkese selamlarımı sunuyorum;

Daha önceden hazırladığım bir şablondan (.xlt) her defasında boş veri içeren yeni excel dosyaları oluşturuyorum. Bu dosyalarda User form her açılışta aktif oluyor. üzerinde değişik komutları gerçekleştiğim düğmeler var. Bu düğmelerden biri de "Kaydet ve Kapat" düğmesi. Bu düğmenin kodlarını aşağıdaki gibi yaptım ama dosyayı daha önce kaydetsem de Farklı Kaydet diyalog penceresi her defasında aktif oluyor.
kodlar şöyle:

If Not ActiveWorkbook.Saved Then
Application.Dialogs(xlDialogSaveAs).Show
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
End If

Ben istiyorum ki, "Kaydet ve Kapat" tuşuna tıkladığımda eğer dosyam hiç kaydedilmemiş ise Farklı Kaydet diyalog kutusu karşıma gelsin. Yok dosya daha önce kaydedilmiş ise kaydetsin ve dosyayı kapatsın. Kodları nasıl düzenlemem gerektiğinde yardımcı olursanız çok memnun olurum.
Teşekkürler...

 

[Mahmut Kök]

Yeni bir excel belgesi oluşturduğunuzda adı varsayılan olarak 'Kitap1' gibi isimler alır. Değişiklik yapıp, sadece KAYDET deseniz bile, yeni oluşturulmuş bir kitap olduğu için, varsayılan dışında bir isim vermeniz için size FarklıKaydet penceresi açar.

Bu yüzden, oluşturduğunuz belgeyi makro ile kaydedip kapatmak istediğinizde, oluşturduğunuz dosyaya bir isim ve kaydedilecek bir yer tayin etmiş ve öyle kaydetmiş olmanız gerekmektedir.

Bir diğer mesele, form açıkken yeni excel belgesi oluşturduğunuzda, yine sizin asıl excel dosyanız faal hale geliyor olabilir. O yüzden kaydet dediğinizde muhtemelen, siz yeni belgeyi değil, asıl dosyanızı kaydediyorsunuzdur.

Çözümü bunlardan hareketle aramalısınız. Forumda örnekleri mutlaka vardır. Eğer, oluşturduğunuz dosyalar için bir yer ve isim (günün tarihi gibi) belirlerseniz yardımcı olmaya çalışalım.

 

[sinbade]

Asıl belge (şablon) değil yeni bir belge oluşuyor. Excel'in kendi "kaydet" düğmesine bastığımda Farklı Kaydet diyalogu karşıma geliyor. Araç çubuklarını gizleyerek tam ekran çalışıyorum. Bu yüzden userform üzerine "Kaydet ve Kapat" butonu eklemiştim. Buraya örnek eklemek isterdim ama dosyanın boyutu limitlerin hayli üzerinde. Acaba çalışma kitabı adı "kitap1.xls" ise farklı kaydet diyalogunu aç desek olur mu? Bilemiyorum. Eve gidince denemem lazım.

 

[sinbade]

kodları şu şekilde yaptım oldu sanki...

Sub kapat()
If ActiveWorkbook.FullName = "Kitap1" Then
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
End If
End Sub

üstatlar eksiklik olup olmadığını söylerse memnun olurum. teşekkürler.

 

[CRAYZLOVEIS]

Arkadaşlar benim bir sorum var.. gerçi bu sıralarda çok soru yazdım ama 3 te birine bile hala cevap almış değilim....Umarım buna alırım....

Benim excel dosyam kapatırken KAYIT EDİLSİN Mİ diye sormasını evet derse kaydetmesini hayır dersede direk olarak "EXCELİN KAPANMASINI" istiyorum. Ben aşağıdaki kodu kullanıyorum ama sormadan kaydediyor ve kapatıyor.. Lütfen gerekli düzeltmeleri nasıl yaparım bu konuda yardımcı olun...

Sub Auto_Close()

Sheets("ANA SAYFA").Select
Range("G8").Select
Range("G8").Select

ActiveWorkbook.Save

MsgBox "Programı Kullandığınız İçin Teşekkür Ederiz"

Application.DisplayFullScreen = False

ActiveWorkbook.Close
End Sub

 

[mesuttasar]

Kaydet komutuna aşağıdaki komutları yapıştırın.

Private Sub CommandButton1_Click()
cvp = MsgBox("Kaydetmek İstiyormusunuz ?", vbYesNo)
If cvp = vbNo Then
ActiveWorkbook.Close Saved = True
Else
ActiveWorkbook.Close Saved = False
End If
End Sub

 

[CRAYZLOVEIS]

kardeş nereye yapıştıracağız bu kodu

 

[mesuttasar]

Userformun üzerindeki çıkış butonuna çift tıklayıp açılan pencereye yapıştıracaksın.

 

[mesuttasar]

Arkadaşlar benim bir sorum var.. gerçi bu sıralarda çok soru yazdım ama 3 te birine bile hala cevap almış değilim....Umarım buna alırım....

Benim excel dosyam kapatırken KAYIT EDİLSİN Mİ diye sormasını evet derse kaydetmesini hayır dersede direk olarak "EXCELİN KAPANMASINI" istiyorum. Ben aşağıdaki kodu kullanıyorum ama sormadan kaydediyor ve kapatıyor.. Lütfen gerekli düzeltmeleri nasıl yaparım bu konuda yardımcı olun...

Sayın Crayzloveis bence siz yukarıda yazdığınız kodların tamamını silin. İstediğiniz şeyi dosyayı kapatırken excel zaten kendisi soruyor.Bunun için birdaha uyarı ekranına gerek yokki.

Silin kodları olsun bitsin.

 

[CRAYZLOVEIS]

Sayın Crayzloveis bence siz yukarıda yazdığınız kodların tamamını silin. İstediğiniz şeyi dosyayı kapatırken excel zaten kendisi soruyor.Bunun için birdaha uyarı ekranına gerek yokki.

Silin kodları olsun bitsin.

sayın mestuttasar öncelikle önerin için tşk ederim. Yeni bir şeyler öğrenlmk istedim ama karşılığında önce yardım ettin sonra da fırça atar gibi kodları sil vs. dedin. Evet soru senin için biraz kolay ve saçma gelebilir ama bilmeyenler için öyle değil....

Örnek verecek olursa excelin çıkışta kaydedip edilmeyeceğini bende biliyorum. Ona bakıyorsan yazıyıya gönderme tuşuda var ama forumda yazıcıya gönderme ile ilgili yüzlerce konu var.....Yine aynı şekilde excel de dosyaya şifre koyma özelliği var ama yine herkes bununla ilgili bir sürü soru sormuş ve sende dahil herkes buna cevap vermiş bununla ilgili bir sürü kod yayınlanmış...

Size göre basit olan bir konu başkaları için yeni bir başlangıç olabilir

 

[mesuttasar]

sayın mestuttasar öncelikle önerin için tşk ederim. Yeni bir şeyler öğrenlmk istedim ama karşılığında önce yardım ettin sonra da fırça atar gibi kodları sil vs. dedin. Evet soru senin için biraz kolay ve saçma gelebilir ama bilmeyenler için öyle değil....

Örnek verecek olursa excelin çıkışta kaydedip edilmeyeceğini bende biliyorum. Ona bakıyorsan yazıyıya gönderme tuşuda var ama forumda yazıcıya gönderme ile ilgili yüzlerce konu var.....Yine aynı şekilde excel de dosyaya şifre koyma özelliği var ama yine herkes bununla ilgili bir sürü soru sormuş ve sende dahil herkes buna cevap vermiş bununla ilgili bir sürü kod yayınlanmış...

Size göre basit olan bir konu başkaları için yeni bir başlangıç olabilir

Beni tamamen yanlış anladığınıza üzüldüm gerçekten.Alınacağınızı bilsem daha dikkatli seçerdim kelimelerimi.Burada kimseyi azarlama yada küçük görme gibi bir davranışım olmaz ve olamaz da. Ben sadece son mesajınızı dikkatle okuyunca ona cevap verdim. Bilmeden kırdıysam özür dilerim.

Ayrıca burada ben bir soruyu yanıtlamaya çalışırken bende birşeyler öğreniyorum o yüzden yazdıklarımı yanlış anlamayın lütfen.

 

[CRAYZLOVEIS]

Kardeş sanırım ufak bir yalnış anlaşılma oldu.... Kusura bakma hakkını helal et..

 

[mesuttasar]

Kardeş sanırım ufak bir yalnış anlaşılma oldu.... Kusura bakma hakkını helal et..

Varsa da Helal Olsun. :hihoho: