Açık Çalışma Kitabı Sayısına Göre Kod

[Seyit Tiken]

 

[YUSUF44]

Şöyle olur mu?

If Workbooks.Count > 1 Then
    '1. kod
Else
    '2. kod
End If

Kaynak:

How to quickly count the number of all opened workbooks?

ExtendOffice provides a comprehensive range of professional software solutions, enhancing productivity and efficiency for businesses worldwide.

www.extendoffice.com

 

[Seyit Tiken]

Yusuf bey teşekkür ediyorum, bende bu şekilde yapmıştım doğru sonuç vermemişti.

 

[Seyit Tiken]

Yusuf bey tamamdır, teşekkür ediyorum.

 

[YUSUF44]

Aşağıdaki kod VBA penceresi dahil 5 excel penceresi açıkken "Şu anda 5 excel dosyası açık" sonucunu verdi:

Sub kontrol()
If Workbooks.Count > 1 Then
    [A12] = "Şu anda " & Workbooks.Count & " excel dosyası açık"
Else
    [A12] = "Sadece bir excel dosyası açık"
End If
End Sub

 

[Seyit Tiken]

Yusuf bey haklısınız, MsgBox ile sonucu doğruluyor, ama kodları uyguladığımda tam istenilen sonucu vermiyor. Sanırım şu anda kullandığım bilgisayarla ilgili olabilir, kişisel bilgisayar değil. Uyguladığım kodlar.

If Workbooks.Count > 1 Then
ThisWorkbook.Save
ThisWorkbook.Close
Else
ThisWorkbook.Save
Application.Quit
End If

Yusuf bey bu kodu deneyebilir misiniz sizde sonuç nasıl çıkıyor?

 

[YUSUF44]

Kodunuzu denediğimde sadece açık olan kitabı kaydedip kapattı. Dediğiniz gibi sizin bilgisayarla ilgili olabilir.