Küçükten büyüğe sayıların sıralanması

[ŞAHİNce]

Bir proje çalışmamda;

A sütununa rastgele yazdığım sayıları B sütuna küçükten büyüğe doğru sıralamak istiyorum.
Ancak bu sıralamada birden çok defa yazılan sayıların 1 kez yazılması.
Örnek: A sütununda 50 sayılı 3 tane varsa, sıralama sütununa 1 defa 50 yazılacak

Çalışma dosyam ekte ve Ayrıntılı açıklamalar dosya içindedir.

Teşekkür ederim.

 

[uzmanamele]

merhaba

böyle bir kod işinizi görür mü?

Sub benzersiz()
Sheets("Giriş").Range("g13:g65536").ClearContents
ss1 = Sheets("Giriş").Range("b65536").End(3).Row
    Sheets("Giriş").Range("B13:B" & ss1 - 1).Select
   Sheets("Giriş").Range("B13:B" & ss1 - 1).AdvancedFilter Action:=xlFilterCopy, _
   CopyToRange:=Range("G13"), Unique:=True
   Call sirala
End Sub
Sub sirala()
ss2 = Sheets("Giriş").Range("b65536").End(3).Row
    Sheets("Giriş").Range("G14:G" & ss2).Select
    ActiveWorkbook.Worksheets("Giriş").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Giriş").Sort.SortFields.Add Key:=Range("G14") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Giriş").Sort
        .SetRange Range("G14:G" & ss2)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[ŞAHİNce]

Evet aradığım buydu Sn. Uzmanamele..
Makroyu ekledim ve oldu.

Bu işlemi bir formül ile de yapmak mümkün müdür?

 

[uzmanamele]

merhaba

buraya bakınız.
Sıralama Fonksiyonu Uygulamaları