makro ile excel programını kapatmak

[gurkaneral80]

arkadaşlar userform ile çıkış butonuna bastığımda excel penceremin kapanmasını istiyorum. mevcut durumda çıkışa basınca workbooku kapatabiliyorum. fakat boş excel programı kalıyor. bunun çaresi nedir acaba? tek istediğim çıkışa basınca pencere tamamen kapansın, hernasıl olacaksa. değerli yardımlarınızı bekliyorum...

 

[Ömer]

Merhaba,

ThisWorkbook.Save
Application.Quit

Bu şekilde deneyiniz.

 

[gurkaneral80]

bunu denedim. workbook'u kapatıyor fakat excel anasayfası kalıyor. ben pencerenin tamamen kapanmasını istiyorum.

 

[Ömer]

Denediğiniz dosyayı kodları yazarak eklermisiniz.

 

[gurkaneral80]

programı biraz incelediğimde üst satırda "activeworkbook.close" komutunu silmediğimi farkettim. silince problem ortadan kalktı. teşekür ederim...

 

[kneehot]

selamlar bu sekılde acık tum excel dosyaları kapanıyor. bunun acık tek dosya varsa excelın komple kapanacagı bırden cok dosya varsa sadece aktıf dosyanın kapanacagı versıyonu nedır.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub ÇIKIŞ()
    Select Case Excel.Windows.Count
        Case 1
            ThisWorkbook.Save
            Application.Quit
        Case Is > 1
            ThisWorkbook.Save
            ThisWorkbook.Close
    End Select
End Sub

 

[kneehot]

cok tesekkur ederım.

 

[ajan83]

Arkadaşlar bunu uyguladım, çalışıyor ancak artık bende giremiyorum alt+f11 ile dosya kapanıyor. Nasıl geri alacağım bu değişikliği?

 

[Korhan Ayhan]

Uyguladığınız dosyayı açarken makroları etkinleştirmeyin. Bu şekilde dosyanız açılacaktır. Daha sonra kodu silip kurtulabilirsiniz.

 

[__TR__]

Sayın Korhan Ayhan'ın vermiş olduğu kodu kendi çalışma dosyama ekledim kod gayet güzel çalışıyor programı kaydedip kapatıyor fakat şöyle bir sorun var; buton işlemini yapıp dosyayı kapatmadan önce Excel kendi sorgusunu yapıyor, yani Excel dosya kapanmadan "Çalışmanızı kaydetmek istiyormusunuz" diye tekrar soruyor.

Bu sorguyu nasıl iptal edebiliriz? Butona tıklandığı zaman dosya direk kaydolup kapansın.

KULLANILAN KOD:

Sub ÇIKIŞ()
Select Case Excel.Windows.Count
Case 1
ThisWorkbook.Save
Application.Quit
MsgBox "YAPILAN İŞLEMLER KAYDEDİLDİ. İYİ GÜNLER.", vbInformation, " Kaydet ve Çık"
Case Is > 1
ThisWorkbook.Save
ThisWorkbook.Close
End Select
End Sub

 

[Ömer BARAN]

Sayın Korhan Ayhan'ın vermiş olduğu kodu kendi çalışma dosyama ekledim kod gayet güzel çalışıyor programı kaydedip kapatıyor fakat şöyle bir sorun var; buton işlemini yapıp dosyayı kapatmadan önce Excel kendi sorgusunu yapıyor, yani Excel dosya kapanmadan "Çalışmanızı kaydetmek istiyormusunuz" diye tekrar soruyor.

Bu sorguyu nasıl iptal edebiliriz? Butona tıklandığı zaman dosya direk kaydolup kapansın.

KULLANILAN KOD:

Sub ÇIKIŞ()
Select Case Excel.Windows.Count
Case 1
ThisWorkbook.Save
Application.Quit
MsgBox "YAPILAN İŞLEMLER KAYDEDİLDİ. İYİ GÜNLER.", vbInformation, " Kaydet ve Çık"
Case Is > 1
ThisWorkbook.Save
ThisWorkbook.Close
End Select
End Sub

Merhaba.

Son günlerde uğraştığımız belgede kullanacaksınız sanırım.

Eğer öyleyse, makroyu kullanacağınız belgnin ThisWorkbook bölümünde
aşağıdaki şekilde kod yer aldığını belirtmenizde,
hatta sayfa sayısı/veri durumu önemli değil, tam ekran uygula/iptal et
kodlarının çalışır durumda olduğu boş bir örnek belge eklemenizde yarar var bence.

Böylece; gereksiz cevap ve denemelerden de kurtulmuş olursunuz diye düşünüyorum.
.

[FONT="Tahoma"][SIZE="2"]Private Sub Workbook_BeforeClose(Cancel As Boolean)
.......
End Sub[/SIZE][/FONT]

 

[__TR__]

Merhaba Ömer Hocam, yine Hızır gibi yetiştiniz...

Evet aynı dosya için, dediğiniz şekilde kodları ekledim ve çalışıyor hocam, sadece çıkış makrosundaki mesajı 2 kez gösteriyordu, bu yüzden mesajı sildim ve şuan çıkış işlemi gerçekleşiyor çok teşekkürler hocam

 

[Ömer BARAN]

Merhaba Ömer Hocam, yine Hızır gibi yetiştiniz...

Evet aynı dosya için, dediğiniz şekilde kodları ekledim ve çalışıyor hocam, sadece çıkış makrosundaki mesajı 2 kez gösteriyordu, bu yüzden mesajı sildim ve şuan çıkış işlemi gerçekleşiyor çok teşekkürler hocam

Estağfurullah, önemli olan ihtiyacın görülmesi.

Bu arada bahse konu dosya, herşeyiyle tamam olduğunda bir örneğini ulaştırırsanız sevinirim.

Kolay gelsin.
.

 

[__TR__]

Merhaba Ömer hocam,

Dosyanın son halini özel mesaj ile gönderdim umarım inceleme fırsatınız olmuştur.

 

[Ömer BARAN]

Evet dosyayı aldım.

-- Hem kullanıcının fareyi hep aynı yere götürme alışkanlığı kazanması,
-- hem de başka sayfa değil, başka menüye gittiği duygusunun oluşması bakımından,
düğme yerlerinin hep aynı yerde olması (şekli/rengi vs. zevke bağlı tabi) daha iyi olur diye düşünüyorum.

-- Ayrıca; puantaj sayfasındaki koşullu biçimlendirmede kullanılan formüllerden kurtulmak gerekiyor.

Fırsat bulursam koşullu biçimlendirmeyi de kod'a aktarmaya bakarım.

Kolay gelsin.
.

 

[__TR__]

Ben kendimce düzenlemiştim fakat haklısınız hocam. Aklıma gelmişken, hafta sonlarına denk gelen günlere veri girişini kapatmıştık fakat Destekleme kurslarının hafta sonlarına denk gelen kısımları olduğundan ben o koşulu iptal ettim bilginiz olsun hocam.