ilk 5 büyük rakamı sıralama

[akrbas]

merhabalar Arkadaşlar ,
listeden büyük olan ilk 5 rakamı ve açıklamalarını ayrı bir liste yapmak istiyorum.
örnek dosya ektedir.

yardımlarınızı rica ederim.
iyi geceler..

 

[aliveli06]

Koşullu biçimlendirme ile yapabilirsin. c6 c23 hücre aralığını seç üst menüden giriş sekmesinden -koşullu biçimlendirme -ilk/son kuralları-ilk on öge seç.açılan menüden soldaki 10 rakamını 5 e düşür tamam.

yada b ve c sutununu sec üst menüden veri-sırala sıralama ölçütünde c yi seç tamam.

 

[akrbas]

teşekkürler aliveli06. yalnız benim liste çok uzun. o listeden ilk 10 büyük rakamı başka bir listeye açıklamaları ile aktarmak istiyorum. yani top 10 listesi yapmaya çalışıyorum.

 

[aliveli06]

veri sıralama işini görmüyormu büyükten küçüge sıralıyor rahatlıkla kopyalayabilirsin.

 

[ynmcan]

merhabalar Arkadaşlar ,
listeden büyük olan ilk 5 rakamı ve açıklamalarını ayrı bir liste yapmak istiyorum.
örnek dosya ektedir.

yardımlarınızı rica ederim.
iyi geceler..

Syn. akrbas;

Ekteki dosyayı inceleyin.

 

[YUSUF44]

Alternatif olarak:
E6 hücresinde aşağıdaki formülü:

=BÜYÜK($C$6:$C$600;SATIR()-5)

D6 hücresinde aşağıdaki formülü:

=İNDİS($B$6:$B$600;KAÇINCI(E6;$C$6:$C$600;0))

kullanıp aşağıya doğru kopyalarsanız istediğiniz sonuca ulaşabilirsiniz.

 

[Korhan Ayhan]

Alternatif olarak özet tablo ile hazırladığım örneği inceleyiniz.

 

[akrbas]

Çok teşekkürler, Arkadaşlar... iyi çalışmalar

 

[YUSUF44]

Bir ayrıntı: Formül ve makrolar büyük ihtimalle aynı değere sahip listelerde hatalı sonuç üretirler. En garanti çözüm sayın Korhan Ayhan'ın özet tablo çözümüdür. Bu çözümü öğrettiği için kendisine teşekkür ediyorum bu arada.

 

[Murat OSMA]

Alternatif olarak ADO ile çözüm önerebilirim;

[FONT="Trebuchet MS"]DefObj E, R
Sub Emre()
    Set Rky = CreateObject("adodb.connection")
    Rky.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no"""
    Set Evn = Rky.Execute("select top 5 f1, f2 from [Sheet1$] group by f1, f2 order by f2 desc")
    Range("E1").CopyFromRecordset Evn
    Set Rky = Nothing: Set Evn = Nothing
End Sub[/FONT]

 

[Korhan Ayhan]

Yusuf Bey,

7 nolu mesajımdaki dosyaya formülle çözümüde ekledim. İnceleyebilirsiniz.

 

[YUSUF44]

Teşekkürler Korhan Bey.