bir aralıkta en fazla geçen "METNİ" nasıl bulurum? :?

[ariftezer]

bir aralıkta en fazla geçen "METNİ" nasıl bulurum? :?

 

[Ali]

bir aralıkta en fazla geçen "METNİ" nasıl bulurum? :?

Verileriniz A1:A25 aralığında olsun.

=İNDİS(A1:A25;KAÇINCI(MAK(EĞERSAY(A1:A25;A1:A25));EĞERSAY(A1:A25;A1:A25);0))

yazıp CTRL+SHIFT+ENTER tuşlarına birlikte basarak formül girişini tamamlayınız.

 

[Mahmut Kök]

bir aralıkta en fazla geçen "METNİ" nasıl bulurum? :?

Aşağıdaki kodu da kullanablirsiniz. Verilerin A sütununda bulunduğunu farz ettim.

son = [a65536].End(3).Row
For a = 1 To son
b = WorksheetFunction.CountIf(Range("a1:a" & son), Cells(a, "a"))
If b > deger Then
deger = b
ad = Cells(a, "a")
End If
Next
MsgBox ad & " bulunma sayısı : " & deger

 

[ariftezer]

SY: ALİ ve MESLEKİ İLGİNİZ İÇİN TEŞEKKÜRLER
EMEK VE BİLİLERİNİZE SAĞLIK
*
FORMÜLÜ KULLANDIM BAŞARILI OLDU.
FAKAT KODU KULLANAMADIM... KODUN ÇALIŞMA HANGİ HÜCREDE YAZAR , DAHA NELER YAPMAM GEREKİYOR ONU BİLE MİYORUM
TEKRAR HERKESE TEŞEKKÜRLER

 

[Mahmut Kök]

SY: ALİ ve MESLEKİ İLGİNİZ İÇİN TEŞEKKÜRLER
EMEK VE BİLİLERİNİZE SAĞLIK
*
FORMÜLÜ KULLANDIM BAŞARILI OLDU.
FAKAT KODU KULLANAMADIM... KODUN ÇALIŞMA HANGİ HÜCREDE YAZAR , DAHA NELER YAPMAM GEREKİYOR ONU BİLE MİYORUM
TEKRAR HERKESE TEŞEKKÜRLER

Ekteki dosyayı inceleyebilirsiniz.

 

[ariftezer]

Emek Ve Bİlgİnİze SaĞlik