iki kriterli KTF

[BG]

Merhaba,
iki kriterli KTF (Kullanıcı tanımlı fonksiyon) ihtiyaç duydum.
A sütununda "a" yazıyorsa,
B sütundaki dolgu rengi sarı ise toplasın.
Dosya ektedir. Teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Function RENK(alan As Range, kriter As String, olcut As Range)
Application.Volatile
For a = 1 To alan.Rows.Count
    If alan.Cells(a, 1) = kriter And alan.Cells(a, 2).Interior.Color = olcut.Interior.Color Then RENK = RENK + alan.Cells(a, 2)
Next
End Function

Örnek dosyanız E2 hücresi için formül: =RENK(A2:B12;D2;E2)

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz, alternatif olsun?

Kullanımı :

=RenkTopla(A2:B12;D2;B12)

İlk Parametre : Değerlendirilecek Alan
İkinci Parametre : Karşılaştırılacak Değer
Üçüncü Parametre : Örnek Renkli Hücre. Bu nedenle değişik renkli hücreleri de toplayabilirsiniz.

Function RenkTopla(Rng As Range, Deger As String, OrnekHucre As Range)

    Dim Hcr As Range, _
        Tpl As Double
       
    If Rng.Columns.Count > 2 Then
        RenkTopla = "Kolon Sayısı Fazla"
        Exit Function
    End If
       
    For Each Hcr In Rng
        If Hcr.Column = 1 And Hcr = Deger Then
            If Hcr.Offset(0, 1).Interior.ColorIndex = OrnekHucre.Interior.ColorIndex Then
                Tpl = Tpl + Hcr.Offset(0, 1)
            End If
        End If
           
    Next Hcr
   
    RenkTopla = Tpl
   
End Function

 

[BG]

Ömer bey & Necdet Bey,
Desteğiniz için teşekkür ederim.
iyi çalışmalar...