Şartlı Sayma..!

[sensizsoldum]

Merhaba,
Forumda kısa bir araştırma yaptım, ama buna uygun bir şartlı sayma işlemine rastlamadım. Ya da bulamadım. Baktıklarım dolgu rengine göre ya da içindeki yazı rengi stili vs. bu şekilde toplama ve sayma örnekleri.
Benim çalışmada kullanacağım sayma işlemi, hem dolgu rengine göre, hem de hücredeki veriye göre. B2 hücresinde bulmak istediğim rakam, B3:B aralığında dolgu rengi yeşil olan kaç tane hücre var onu saymak bunu sayarken bu dolgu rengi yeşil olan hücrelerin içindeki yazılar
Örneğin: B3B Aralığında 10 tane dolgu rengi yeşil veri var ve bu 10 hücrenin içeriği 6 farklı veri olunca toplamda 6 olması gerekiyor. Bunu nasıl çözüme götürebiliriz.
İlgili arkadaşlardan bilgi rica ediyorum.
İyi çalışmalar dilerim.

http://www.dosya.tc/server18/OflPhm/Kitap1.rar.html

 

[Korhan Ayhan]

Merhaba,

Forumda o kadar çok renkle ilgili yazılmış fonksiyonlar varken bulamamanız ilginç olmuş!

Neyse ben size sade bir dosya hazırladım. Bunu kendi dosyanıza uyarlamanız daha kolay olur.

İnceleyiniz.

Kullanılan kod;

Option Explicit
 
Function Renkli_Benzersiz_Say(Veri As Range, Renk_Kodu As Byte)
    Dim Hucre As Range, Benzersiz_Veri As Collection
    
    Application.Volatile
    
    Set Benzersiz_Veri = New Collection
    
    On Error Resume Next
    
    For Each Hucre In Veri
        If Hucre.Value <> "" And Hucre.Interior.ColorIndex = Renk_Kodu Then
            Benzersiz_Veri.Add Hucre.Text, CStr(Hucre.Text)
        End If
    Next
    
    On Error GoTo 0
 
    Renkli_Benzersiz_Say = Benzersiz_Veri.Count
End Function