Birden Fazla Kritere Göre Listeleme

[denese]

Merhaba,

"Data" sayfasında aynı sicil numarasından bir den fazla kayıt var. "Sınav puanına" göre ve "son tarihe" göre "Sonuç" sayfasına listeleme yapmak istiyorum. Detaylı açıklamaları ve örnek listelemeyi ekteki dosyada belirtim. Rica etsem yardımcı olabilir misiniz.

İyi çalışmalar

 

[veyselemre]

Sub test()
    With Sheets("Sonuc")
        .Cells.Clear
        Sheets("Data").UsedRange.Copy .Range("A1")
        .Range("A:R").Sort .[c1], xlAscending, .[b1], , xlDescending, .[a1], xlDescending, xlYes
        .Range("A:R").RemoveDuplicates Columns:=3, Header:=xlYes
    End With
End Sub

 

[denese]

Sub test()
    With Sheets("Sonuc")
        .Cells.Clear
        Sheets("Data").UsedRange.Copy .Range("A1")
        .Range("A:R").Sort .[c1], xlAscending, .[b1], , xlDescending, .[a1], xlDescending, xlYes
        .Range("A:R").RemoveDuplicates Columns:=3, Header:=xlYes
    End With
End Sub

Merhaba @veyselemre Bey,

Desteğiniz için çok teşekkür ederim. Kod tam istediğim gibi ve de çok hızlı çalışıyor.

İyi günler dilerim.