DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function tekrar_sayma(Ilk_Alan As Range, Ikinci_Alan As Range, Toplam_Alan As Range) As Integer
Dim dizi()
On Error Resume Next
kontur = 0
For i = 1 To Ilk_Alan.Count
If Ilk_Alan(i, 1) = ActiveCell.Offset(0, -3) And Ikinci_Alan(i, 1) = ActiveCell.Offset(0, -2) Then
If WorksheetFunction.Match(Toplam_Alan(i, 1), dizi, 0) = Empty Then
ReDim Preserve dizi(kontur)
dizi(kontur) = Toplam_Alan(i, 1)
kontur = kontur + 1
End If
End If
Next i
ReDim dizi(0)
tekrar_sayma = kontur
End Function
=tekrar_sayma($A$3:$A$34;$B$3:$B$34;$C$3:$C$34)