Sıralama ve saydırma hakkında yardım

[halukkilic]

merhaba arkadaşlar ;

D sütununda isimler var, E sütununda değerler,
D sütununda aynı isimleri verilerin, E sütunundaki en yüksek değerden en düşük değere doğru F sütununda 1-2-3 sıralaması istiyorum , fakat D sütünundaki isim değiştikçe sıralamanın baştan başlaması lazım.

Ben bunu, d sütununu a-z'ye, e sütünununu da büyükten küçüğe sıralayarak daha sonrada satırlara 1-2-3 yazarak mouse ile aşağı kadar çekerek manuel uyguluyorum. Birkaç formul denedim ama istediğim sonucu alamadım. konu hakkında yardımcı olurmusunuz.

 

[alicimri]

makrolu çözüm

Sub Makro3()
 say = Range("A65536").End(3).Row
    Range("A1:A" & say).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
      For i = 2 To say
       If Range("D" & i) = Range("D" & i - 1) Then
       Range("F" & i).Value = Range("F" & i - 1).Value + 1
       Else
        Range("F" & i).Value = 1
        End If
        Next
End Sub

F2 hücresine aşağıdaki formülü yazın, aşağıya doğru kopyalayın

=EĞER(D2=D1;F1+1;1)

 

[YUSUF44]

Sayın alicimri, formülde SATIR(F2) kısmına gerek yok sanki. O işlemi zaten son kısım yapmıyor mu?

 

[alicimri]

Sayın YUSUF44
Haklısınız, daha önce buna benzer durum birinci satırdan başlıyordu. O işleme ihtiyaç duymuştum. Kafamda o kalmış.
Uyarınız doğrultusunda, #2 nolu mesajdaki, makro ve formülden fazlalıkları sildim.

 

[halukkilic]

Sayın @alicimri ve @YUSUF44 yardımlarınız için çok teşekkürler. Sayenizde mükemmel oldu.