birden fazla sütunda çokeğersay

[coşkun79]

merhaba.h2:j2 aralığındaki üç ismi tabloda aratıp aynı anda kaç defa beraber çalıştıklarını bulmak istiyorum. Her ekip için aynı işlemi yapıp k sütununda karşılık gelen ilgili hücrelerine yazdırmak istiyorum. .h2:j2 aralığındaki üç isim a3, a7 ve a10 satırlarında üç defa birlikte çalışmış. bunu nasıl formülüze edebilirim acaba.

 

[Ziynettin]

Merhaba,

Makro ile çözüm.

Sub test()
With Sheets("Sayfa1")
a = .Range("B3:F" & .Cells(Rows.Count, 2).End(3).Row)
b = .Range("H2:J" & .Cells(Rows.Count, 2).End(3).Row)
ReDim c(1 To UBound(b), 1 To 1)
For x = 1 To UBound(b)
For i = 1 To UBound(a)
    For j = 1 To UBound(a, 2)
        If a(i, j) = b(x, 1) Or a(i, j) = b(x, 2) Or a(i, j) = b(x, 3) Then
            say = say + 1
        End If
    Next j
    If say = 3 Then: k = k + 1: c(x, 1) = k
    say = 0
Next i
k = 0
Next x
.Range("K2:K" & Rows.Count).ClearContents
.Range("K2").Resize(UBound(b)) = c
End With
MsgBox "İşlem Bitti...!", vbInformation
End Sub

 

[ÖmerBey]

Merhaba,
KTF ile çözüm isteseniz deneyiniz.

Function ÇOKSAY(tablo As Range, değerler As Range)
dz = tablo
For a = LBound(dz, 1) To UBound(dz, 1)
    For b = LBound(dz, 2) To UBound(dz, 2)
        metin = metin & dz(a, b)
    Next
    
    For Each hcr In değerler
        If InStr(1, metin, hcr.Value) = 0 Then GoTo 1
    Next
    ÇOKSAY = ÇOKSAY + 1
1
    metin = Empty
Next
End Function

Yukarıdaki kodları boş bir modüle kopyaladıktan sonra aşağıdaki formülü dosyanıza uygulayabilirsiniz.

=ÇOKSAY(B3:F10;H2:J2)

 

[coşkun79]

teşekkür ederim ikinize de. makroyu da ktf yi de bilmiyorum ama makroları açınca makro ile olan çözümünüz çalıştı. kendi tabloma uygulamaya çalışacağım