Userform direk açılma

[muratgunay48]

Arkadaşlar. Bir userform hazırladım. Kodlar örnek dosyadaki ile aynı. Benim amacım, exceli açınca direk userform açılsın, excel görünmesin. Yalnız bilgisayarı açınca dosya direk açılıyor. Kaç defa yeniden başlattım. Aynı.
Hata nerede acaba.
Teşekkür eder, sağlıklı günler dilerim.

 

[Orion1]

Bende excel gizleniyor açılırken.

 

[metin_0606]

Bende excel gizleniyor açılırken.

Sayın orion açılırken ilk etapta bir iki sn excel görünüp sonra gizleniyor

 

[muratgunay48]

Bende excel gizleniyor açılırken.

Bilgisayarı yeniden başlattınız mı. Kendi kendine açılıyor.
Teşekkür ederim.

 

[muratgunay48]

Sayın orion açılırken ilk etapta bir iki sn excel görünüp sonra gizleniyor

O normal zaten. Bir saniye falan gözükebilir.

 

[Saban Sertkaya]

Merhabalar,
Alternatif link paylaşabilir misiniz ?

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açtınız. Form açıldı. Sonra formu sağ köşedeki çarpıdan kapatıyorsanız excel bu durumda gizli olduğu için arka planda açık kalmaktadır.

Formu kapatırken excelinde kapanmasını sağlamalısınız.

 

[muratgunay48]

Merhaba,

Dosyanızı açtınız. Form açıldı. Sonra formu sağ köşedeki çarpıdan kapatıyorsanız excel bu durumda gizli olduğu için arka planda açık kalmaktadır.

Formu kapatırken excelinde kapanmasını sağlamalısınız.

Çok teşekkür ederim hocam. Olumlu sonuç verdi. Peki Excel'i kapat butonu tıklayınca tüm excellerin kapanması, bağlı kodda application yazdığı için mi. Thisworkbook yazsam sorun çözülür mü.

 

[asdsxx]

Arkadaşlar. Bir userform hazırladım. Kodlar örnek dosyadaki ile aynı. Benim amacım, exceli açınca direk userform açılsın, excel görünmesin. Yalnız bilgisayarı açınca dosya direk açılıyor. Kaç defa yeniden başlattım. Aynı.
Hata nerede acaba.
Teşekkür eder, sağlıklı günler dilerim.

Ekteki dosyayı inceleyiniz

 

[Orion1]

Application quit açık olan tümünü kapatır ve arkasında kabuk bırakmaz.
thisworkbook.close ile de sadece dosyanız kapatılır.Arkasında kabuk bırakır.

 

[muratgunay48]

Dosyamı şu şekilde düzenledim. Çarpıdan kapanmıyor. Yalnız kapat butonuna tıklayınca şöyle bir uyarı veriyor, sizce neden olabilir.

 

[muratgunay48]

Ekteki dosyayı inceleyiniz

Hocam, çok güzel bir çalışma olmuş, emeğinize sağlık. Ben dosyamı değiştirdim. Sizin soru olayını "KAPAT" butonuna uyarlayabilir miyiz. Bir de hocam kapatınca (paylaştım aslında) uyarı veriyor. O neden olabilir.
Tekrar teşekkür ederim.

 

[Korhan Ayhan]

Formunuzun çarpıdan kapanma olayına aşağıdaki kodu uygularsanız eğer tek dosya varsa exceli komple kapatır. Eğer birden fazla excel dosyası açıksa sadece bu kodun olduğu dosyayı kapatır.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If Excel.Application.Windows.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Save
        ThisWorkbook.Close
    End If
End Sub

 

[muratgunay48]

Formunuzun çarpıdan kapanma olayına aşağıdaki kodu uygularsanız eğer tek dosya varsa exceli komple kapatır. Eğer birden fazla excel dosyası açıksa sadece bu kodun olduğu dosyayı kapatır.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If Excel.Application.Windows.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Save
        ThisWorkbook.Close
    End If
End Sub

Teşekkür ederim hocam.

 

[asdsxx]

Hocam, çok güzel bir çalışma olmuş, emeğinize sağlık. Ben dosyamı değiştirdim. Sizin soru olayını "KAPAT" butonuna uyarlayabilir miyiz. Bir de hocam kapatınca (paylaştım aslında) uyarı veriyor. O neden olabilir.
Tekrar teşekkür ederim.

Ekli dosyayı görüntüle 222949

aşağıdaki dosyayı inceleyin

 

[muratgunay48]

aşağıdaki dosyayı inceleyin

Çok teşekkür ederim hocam. Emeğinize sağlık.
Sağlıklı günler dilerim.
Saygılarımla.

 

[asdsxx]

Çok teşekkür ederim hocam. Emeğinize sağlık.
Sağlıklı günler dilerim.
Saygılarımla.

Ben teşekkür ederim.
umarım istediğiniz bu idi...

 

[muratgunay48]

aşağıdaki dosyayı inceleyin

Hocam, özür dilerim şimdi fark ettim. Ben "evet" desem de "hayır" desem de, kaydederek kapatıyor.
Size zahmet, bir bakabilir misiniz.
Sauygılarımla.

 

[metin_0606]

Hocam, özür dilerim şimdi fark ettim. Ben "evet" desem de "hayır" desem de, kaydederek kapatıyor.
Size zahmet, bir bakabilir misiniz.
Sauygılarımla.

ElseIf answer = vbNo Then 'Program Otomatik değişiklikleri kardetmeden Kapatır
    Application.DisplayAlerts = False
    
    ThisWorkbook.Save
    ThisWorkbook.Close

************************
ThisWorkbook.Save satırını kaldırırsanız hayır dediğinizde kaydetme işlemi yapmaz

 

[muratgunay48]

ElseIf answer = vbNo Then 'Program Otomatik değişiklikleri kardetmeden Kapatır
    Application.DisplayAlerts = False
   
    ThisWorkbook.Save
    ThisWorkbook.Close

************************
ThisWorkbook.Save satırını kaldırırsanız hayır dediğinizde kaydetme işlemi yapmaz

Teşekkür ederim hocam, size zahmet verdim. Sonradan fark ettim. Mesajı silmeye çalıştım ama olmadı. Çok teşekkür ederim.