Soru Çalışma kitaplarındaki adı belli olan bir sayfa kaç tane var

[klop01]

Arkadaşlar,
Bilgisayarımda açık olan çalışma kitaplarındaki "VERİ" isimli sayfaları aşağıdaki gibi arayacak bir makro kod satırı yazılabilir mi?
Açık olan kitaplardaki "VERİ" isimli sayfa sayısı toplamı>2 Then
Yardımlarınızı rica ederim.

 

[kulomer46]

Merhaba

Konu hakkında bir çalışma Ek 'tedir.

Selamlar...

İlgili Resim

cel_Dosyalarinda_Sayfa_Isimlerinde_Ara__09.11.2021.xlsm dosyasını indir - download

cel_Dosyalarinda_Sayfa_Isimlerinde_Ara__09.11.2021.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[klop01]

Sn. kulomer46,
Hatasız çalışan ayrıntılı bir yanıt olmuş, çok sağ olun.
Bu şekli benim işime yaramıyor.
Yapmak istediğim Açık olan kitaplardaki "VERİ" isimli sayfa sayısı toplamı>2 Then şeklinde bir kod satırı oluşturmak.
Bu şekilde 1 satırla değil de birden fazla satırla elde edilmiş bir sonuç da yeterli olur.
Dosyanızdaki kodları bu şekilde düzenleyebilmek için bilgim yok.
Mümkünse tekrar yardımınızı rica ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sayfa_Say()
    Dim Dosya As Workbook, Sayfa As Worksheet, Say As Integer
   
    For Each Dosya In Excel.Workbooks
        For Each Sayfa In Dosya.Worksheets
            If Sayfa.Name = "VERİ" Then
                Say = Say + 1
            End If
        Next
    Next
   
    If Say > 2 Then
        MsgBox "Koşul sağlandı.", vbCritical
    Else
        MsgBox "Açık dosyalarda VERİ isimli sayfa bulunamadı!", vbCritical
    End If
End Sub

 

[klop01]

Sn. Korhan Ayhan,
Kod istenileni yapıyor. Çok teşekkür ederim.
Sorun çözülmüştür.