SAYFALALARDAN ÇEKİLEN VERİLER İÇİNDEKİ BENZERSİZ VERİLERİ SAY

[TURANNET]

Merhaba;

- Farklı bir programdan rapor şeklinde gelen, sırasıyla; "Menu", "Şablon", "HataListesi", "Yardım", "POSTA_LISTESI" ve "Sayfa 1, Sayfa 2, ......, Sayfa n" lerden oluşan bir excel dosyası var. (n=1-5000 arası).
- Sayfa n'lerde yer alan bir tabloda; "B18:B49" arasına B18'den itibaren, dosya numaraları gelmektedir.
- İlk satırdan başlamak kaydıyla (B18) en az 1, en fazla B49'a kadar 32 satırlık veri gelebilir.
- "B18:B49" aralığı; benzersiz veriler ve ayrıca veri miktarına bağlı olarak boş hücrelerden oluşabilmektedir.
- "Sayfa n" lerde ise "B18:B49" aralığındaki veriler; dosya noları ve veri satırı sayısı yönünden, birebir aynı olabilir, benzer olabilir veya tamamen farklı da olabilir.
Yapmak yada olmasını istediğim işlem:
Tüm bu "Sayfa n" lerde bulunan "B18:B49" aralığındaki veriler birlikte değerlendirilerek benzersiz veri sayısını, yani TOPLAM DOSYA SAYISINI bulmak.
Not: En büyük dosya numarası dosya sayısını vermiyor. Çünkü dosya numaraları atlamalı olarak gidebiliyor.

Teşekkür ediyorum .

Örnek veri

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Dosya_Say()
    Dim Sh As Worksheet, Veri As Range
    
    With CreateObject("Scripting.Dictionary")
        For Each Sh In ThisWorkbook.Worksheets
            If Left(Sh.Name, 5) = "Sayfa" Then
                For Each Veri In Sh.Range("B18:B49")
                    If Veri.Value <> "" Then
                        If Not .Exists(Veri.Value) Then .Add Veri.Value, Nothing
                    End If
                Next
            End If
        Next
        
        MsgBox "Benzersiz toplam dosya sayısı ; " & .Count
    End With
End Sub

 

[muygun]

Merhaba;
işlem sayfasını kendi dosyanıza taşıyarak deneyin.
İyi çalışmalar.

Link:
https://s6.dosya.tc/server2/m8yd35/TURANNET-ORNEK_VERI.zip.html

Not: Korhan Bey'in cevabını görmeden yazdım (Alternatif olsun.)

 

[TURANNET]

Merhabalar.
Uygulamaların her ikiside doğru olarak sonuç verdi.
Çok teşekkür ediyorum ellerinize sağlık.
Syn Korhan Ayhan

Çok teşekkür ediyorum ellerinize sağlık.
Syn muygun

İyi çalışmalar.