Gruplandırarak Sıralama

[shiva]

Merhabalar,

Elimdeki listenin A sütununda kişi isimleri B sütununda da tutar bilgileri yer almaktadır. Sıralamanın olacağı C sütununa öyle bir formül yazmalıyım ki; Kişileri kend, tutarları arasında sıralasın. Yani, şu an c sutununda yazan rakamları manuel değilde formülle yazdırabilir miyiz?

Örnek format ektedir.

Teşekkürler.


Engin

 

[Ali]

C2 hücresine

=KAÇINCI(B2;BÜYÜK(($A$2:$A$100=A2)*$B$2:$B$100;SATIR(DOLAYLI("1:100")));0)

yazıp CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturup aşağı doğru çekiniz.

 

[shiva]

Ali Merhaba,

cevabın için teşekkürler. Ancak formülü ingilizceye çevirerek denedim ekteki hatayı alıyorum.

Yardımcı olabilir misin?

Teşekkürler.


Engin

 

[Ali]

C2 hücresine formülü yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına birlikte basacaksınız. Excel formül başına ve sonuna { } ayıraçlarını ekleyecek. Bundan sonra C2 hücresindeki formülü aşağı doğru çekerek çoğaltacaksınız.

 

[modoste]

Ali hocam emeğinize sağlık süper bi çözüm

 

[Ali]

Rica ederim sağolun Sayın modoste.

 

[Necdet]

Merhaba,

Başka bir seçenek

C2

=EĞERSAY($A$2:A2;A2)
=COUNTIF($A$2:A2;A2)

 

[Ali]

Necdet Bey, yalnız istenen farklı bir durum. Her grup içinde kaçıncı oldukları isteniyor.

 

[Necdet]

Merhaba Ali bey,

Ben ona hiç dikkat etmedim ki Baktım sıralama sizinki ile doğru gidiyor verdim formülü

Benim önerim dikkate alınmamalı o zaman, not düşelim de

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. D sütununa listenizin orjinal sıralamasını yapar. E sütununa ise istediğiniz sıralamayı yapar. Siz daha sonra normal sıralama yöntemini kullanarak istediğiniz sütuna göre sıralamayı değiştirebilirsiniz.

Option Explicit
 
Sub SIRALA()
    Range("D1") = "Sıralama_1"
    Range("E1") = "Sıralama_2"
    Range("D2") = "1"
    Range("D2").AutoFill Destination:=Range("D2:D" & Range("B65536").End(3).Row), Type:=xlFillSeries
    Columns("A:E").Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2"), _
    Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    Range("E2:E" & Range("B65536").End(3).Row) = "=IF(B1=B2,E1+1,1)"
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[shiva]

Çok teşekkürler Korhan Bey, 2 sn de sorunum çözüldü.