Kriterli Sayma İşlemi

[bzace]

Merhabalar,
Eklediğim resimde yapmak istediğim,

Şöyle;A5:G5 hücresi ve B10:H10 hücresindeki harfler aynı olmak şartıyla, A6:G6 hücresindeki veriler 2 den farklı, B11:H16 aralığındaki sayılar 25'den büyük olmak şartıyla sayım yapması.

Sonuca ulaşmış bulunuyorum, ama farklı yol bulmak istiyorum.

 

[turist]

Resim yerine dosya eklerseniz, daha kolay cevap alabilirsiniz.

 

[bzace]

Sayın Turist,
Dosyayla resim arasındaki tek fark cevap verecek kişilerin hazırlayacağı dosyaya manuel giriş yapmayacak olmasıdır.

Dosya yüklememin sebebi Altın üyelere karşı bir saygısızlık yapmış olurum.

 

[turist]

Linkeki dosyanızı inceleyiniz.
DOSYA İNDİR

J11 Hücresine:

=SUMPRODUCT((ISNUMBER(IF($A$6:$G$6<>2;B11:H11)))*(B11:H11>25))

Dizi Formülünü uygulayınız.
Formülü CTRL+SHIFT+ENTER ile tamamlayınız.

Formüldekiler:
İNGİLİZCE= TÜRKÇE
SUMPRODUCT=TOPLA.ÇARPIM
ISNUMBER=ESAYIYSA
IF=EĞER

 

[şiraz1]

merhaba üstadlar,

aşağıdaki formülü filtrelenmemiş sütunda uyguladığım zaman benzersiz değerleri sayıyor ancak filtrelenmiş sütuna uyguladığım zaman çalışmıyor bu konuda yardımınızı rica ederim;
=TOPLA.ÇARPIM(1/EĞERSAY(K3:K285;K3:K285))

 

[bzace]

Sn. Turist, aynı formülle sonuca ulaşabiliyordum.

Sn. Şiraz, boş bir Modül'ün içerine;

Function TotalUniqueAccounts(MyRange As Range) As Integer
Dim MyRow As Range
Dim MyArray() As String
Dim N As Integer
Dim NewAccount As Boolean
ReDim MyArray(0)
For Each MyRow In MyRange.Rows
    If MyRow.Hidden = False Then
        NewAccount = True
        For N = 1 To UBound(MyArray)
            If MyArray(N) = MyRow Then
                NewAccount = False
                Exit For
            End If
        Next N
        If NewAccount = True Then
            ReDim Preserve MyArray(UBound(MyArray) + 1)
            MyArray(UBound(MyArray)) = MyRow
        End If
    End If
Next MyRow
TotalUniqueAccounts = UBound(MyArray)
End Function

Kullanıcı Tanımlı Fonksiyon kullanışı;
=TotalUniqueAccounts(hücre aralığınız)

 

[şiraz1]

sn.bzace

öncelikle cevabınız için teşekkürler
ben yazdığım formüle alttoplam gibi bişey eklemek istiyorum ama formülün neresine ve nasıl yapacağımı bilemedim ayrıca formülü makro şeklinde istemiyorum formülü tekrar yazıyorum;

TOPLA.ÇARPIM(1/EĞERSAY(K3:K285;K3:K285))

umarım anlaşılır olmuştur yardımınız için teşekkürler

 

[bzace]

Bu arada benim soru kaynadı gitti.

Sn. Şiraz, ilk olarak size bir soru sormak istiyorum?
Konuyu açan kişi olarak sizin sorunuzla benim sorum arasında pek fazla bir benzerlik kuramadım.

Yeni konu açmanız gerekmez mi ?

Formülü deneyiniz.
Verilerinizi A2:A100 aralığına girip deneyiniz.

=TOPLA(EĞER(SIKLIK(EĞER(ALTTOPLAM(3;KAYDIR(A2;SATIR(A2:A100)-
   SATIR(A2);;1));EĞER(A2:A100<>"";KAÇINCI("~"&A2:A100;A2:A100&"";0)));
    SATIR(A2:A100)-SATIR(A2)+1);1))
[COLOR="Blue"]Formül dizi formülüdür.CTRL + SHİFT + ENTER ile tamamlayınız.[/COLOR]

Eğer bundan farklı bir yol istiyorsanız yeni konu açın!