Süzülmüş bir tabloda benzersizlerin sayısını bulmak

[mstfclk]

Bir listede öğretmenlerin görevlendirildiği işletmeler var bu öğretmenlerin kaç adet işletmede görevlendirildiğini bulmak istiyorum. örnek dosyada gerekli açıklamalar var orada daha iyi anlaşılır. bür sürü yöntem denedim olmadı yapamadım. Yardımcı olursanız sevinirim
Şimdiden Teşekkür ederim.

 

[turist]

Dosyanız eklenmiştir.
D kolonundan sonra bir kolon (E) ilave edildikten sonra gerekli düzenlemeler yapılmıştır.
Kolay işlem yapmak için tablonuzu 1.ciolarak Öğretmen adı (J kolonu) 2.ci olarak işyeri adı(F kolonu) Sıralanmıştır.

Kolay gelsin...

 

[Korhan Ayhan]

Alternatif olarak ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon kullanılmıştır.

"Kriter" bilgisine 0 (Sıfır) yazarsanız filtrelenmiş alanda benzersiz verilerin sayısını verir.

"Kriter" bilgisine 1 (Bir) yazarsanız alandaki tüm benzersiz verilerin sayısını verir.

"Kriter" bilgisine birşey yazmayıp boş bırakırsanız varsayılan olarak 1 değeri yazılmış gibi hareket eder.

Kullanılan fonksiyon;

Function BENZERSİZ_SAY(Alan As Range, Optional Kriter As Byte = 1)
    Dim Veri As Range, Dizi As New Collection
    
    Application.Volatile True
    
    For Each Veri In Alan
        If Kriter = 0 Then
            If Veri.RowHeight > 0 Then
                On Error Resume Next
                Dizi.Add Veri.Value, CStr(Veri.Value)
                On Error GoTo 0
            End If
        ElseIf Kriter = 1 Then
            On Error Resume Next
            Dizi.Add Veri.Value, CStr(Veri.Value)
            On Error GoTo 0
        End If
    Next
    
    BENZERSİZ_SAY = Dizi.Count
End Function

 

[mstfclk]

Dosyanız eklenmiştir.
D kolonundan sonra bir kolon (E) ilave edildikten sonra gerekli düzenlemeler yapılmıştır.
Kolay işlem yapmak için tablonuzu 1.ciolarak Öğretmen adı (J kolonu) 2.ci olarak işyeri adı(F kolonu) Sıralanmıştır.

Kolay gelsin...

Turist Kardeş, senin yöntemin çok akılcı bir çözüm ancak, veriler sürekli değiştiği ve verileride başka bir veritabanından aldığım için tekrar sıralama işleri sıkıntı yaratacak. onun için
Korhan beyin çözümü daha uygun geldi bana,
ikinizede ayrı ayrı teşekkür ederim.
bu kadar çabuk cevap alacağımı beklemiyordum açıkçası
Tekrar teşekkürler herkese