Sütunda En Fazla Tekrar eden veri

[onurr80]

Merhabalar umarım durumu anlatabilirim ...

şimdi

=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR(A!L2:L48;SATIR(A!L2:L48) - MİN(SATIR(A!L2:L48));;1));--(A!L2:L48="ali");--(A!L2:L48>0))
dediğimde ben ana l2 ile l48 arasıbnda kactane ali varsa onun sayısnı veriyor diyelim 21
ama benim istediğim alinin kac kere geçtigi değil ali nin karşında en fazla gecen değer
ali 36
ali 28
ali 28
ali 28
ali 36
ali 29
ali 30
diyelim işte ben aliyi sectiğimde bana diyecek ki
alinin karsında en fazla gecen deger 28 BEN bunu istiyorum nasıl yapabiliirm
bende gidip onu filitreliycem

yani aliyi sectigimde bana o sutunda karsında ali olup en fazla tekrar degeri verecek

teşekkürler

 

[Seceren]

Merhaba, doğru anladığımı sanıyorum.
Bu formüller tartışılıyor o kısmına girmek istemiyorum, Excel versiyonun 2003 TR yazıyor hangi birisi oluyorsa onu kullanırsınız.

!=ENÇOK_OLAN.ÇOK(B2:B8)
!=ENÇOK_OLAN.TEK(B2:B8)
!=ENÇOK_OLAN(B2:B8)

Ekli dosyayı buradan indirebilirsiniz.

 

[excelokyanus500]

Deneyiniz. Vba

Sub encokbulunan()

Dim hucre As Range
Dim Alan As Range
Dim Sayfa As Worksheet
Dim son As Long

Set Sayfa = Sheets(2)
son = Cells(Rows.count, 1).End(xlUp).Row
Set Alan = Range("B1:B" & son)

With CreateObject("scripting.dictionary")
For Each hucre In Alan
If hucre.Value <> "" Then
If hucre.Offset(0, -1).Value = "ali" Then
.Item(hucre.Value) = .Item(hucre.Value) + 1
If .Item(hucre.Value) > bulunan Then
bulunan = .Item(hucre.Value)
adet = hucre.Value
End If
End If
End If
Next

'Sayfa.Range("E4") = adet
MsgBox adet
End With
End Sub

 

[Korhan Ayhan]

Alternatif;

Filtre Uygulanmış Alanda Kritere Göre En Çok Olan

Örnek Dosya