Çözüldü İki kod satırını beraber çalıştırmak

[klop01]

Private Sub CommandButton4_Click()
Application.Visible = True
If ThisWorkbook.Saved = True Then
If Application.Workbooks.Count = 1 Then
Application.Quit
End If
Else
Application.Visible = True
UserForm2.Show 0
Unload UserForm1
Application.Visible = False
End If
End Sub

Yukarıdaki kırmızı renkli iki kod satırının ifade ettiği şartların ikisi de geçerli ise Application.Quit satırı işlesin şeklinde bir şey düşündüm.
Bu şekildeki bir kullanım doğru mu tereddüt ettim.
Değilse bu iki satırdaki şartların ikisi de aynı anda geçerli ise Application.Quit satırı işlesin şeklinde kodları nasıl yazmalıyım?

 

[veyselemre]

Private Sub CommandButton4_Click()
    Application.Visible = True
    If ThisWorkbook.Saved And Application.Workbooks.Count = 1 Then
        Application.Quit
    Else
        UserForm2.Show 0
        Unload UserForm1
        Application.Visible = False
    End If
End Sub

 

[klop01]

Teşekkür ederim.
If ThisWorkbook.Saved=True And Application.Workbooks.Count = 1 Then
Böyle yazmalıyım galiba.

 

[veyselemre]

Teşekkür ederim.
If ThisWorkbook.Saved=True And Application.Workbooks.Count = 1 Then
Böyle yazmalıyım galiba.

 If ThisWorkbook.Saved And Application.Workbooks.Count = 1 Then

Denedinizde çalışmadı mı düzeltme gereği hissettiniz.

 

[klop01]

Denedinizde çalışmadı mı düzeltme gereği hissettiniz.

Sizin "=True" kısmını unuttuğunuzu düşündüm.

 

[veyselemre]

 

[klop01]

Sayın veyselemre,
Kodların kullanımı konusunda fazla bilgim yok.
4 nolu iletinizde If ThisWorkbook.Saved=True And Application.Workbooks.Count = 1 Then kullanımının anlamsız olduğunu göstermeye çalışmışsınız zannedersem.
3 nolu iletimdeki açıklamayı dediğim gibi unuttuğunuzu düşünerek yazmıştım. "O kod öyle değil böyledir." gibi bir anlam taşımıyor.
Siz de dönüş yaparak o şekilde kullanmaya gerek olmadığını şekille ifade ettiniz.
Sağ olun.

 

[veyselemre]

4 nolu iletinizde If ThisWorkbook.Saved=True And Application.Workbooks.Count = 1 Then kullanımının anlamsız olduğunu göstermeye çalışmışsınız zannedersem.

Evet

3 nolu iletimdeki açıklamayı dediğim gibi unuttuğunuzu düşünerek yazmıştım. "O kod öyle değil böyledir." gibi bir anlam taşımıyor.

Öyle de olabilir önemli olan gerçekten öğrenmek istiyorsanız, kalıplarla kendinizi bağlamayın, bilgisayarda aynı yola çıkan binlerce yöntem var,
Biraz şüpheci yaklaşmak gerekir, ya doğruysa; ben öyle yapıyorum, değişik bir kullanım gördüğüm zaman mutlaka irdeliyorum, deniyorum.

Siz de dönüş yaparak o şekilde kullanmaya gerek olmadığını şekille ifade ettiniz.
Sağ olun.

Siz sağ olun. Amaç bir işlemin eksik yapıldığına dikkat çekmekti yoksa ikisi de aynı kapıya çıkıyor.