Sıralama

[Hakngnc]

Merhaba arkadaşlar,
Örnek üzerinden anlatmam daha kolay olacak sanırım

Örneğin;
A sutununda

Hakan
Hakan
Ahmet
Mehmet
Ahmet
Mehmet
Hakan
Ahmet

diye veriler var ve ben bunları
Hakan
Ahmet
Mehmet
Hakan
Ahmet
Mehmet
...
diye sıralamak istiyorum. Bunu nasıl yapabilirim.

Yardımlarınız için şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Benzersiz kaç tane isim var.

. . .

 

[sakman26]

selam,
örneği inceleyin..
kolay gelsin..

NOT : Buradaki sıralama formüllerle alfabetik listeleme şeklindedir.

 

[veyselemre]

Sub TEST()
    lst = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
    [b:b].ClearContents
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(lst)
            Key = lst(i, 1)
            .Item(Key) = .Item(Key) + 1
        Next i
        kys = Application.Transpose(.keys)
        say = WorksheetFunction.Min(.items)
        elemSay = UBound(kys)

        For i = 0 To say - 1
            Cells(i * elemSay + 1, 2).Resize(elemSay, 1).Value = kys
        Next i
    End With
End Sub

 

[Hakngnc]

Benim aslında amacım özel sıralama yapmak tek tek dağıtarak ama başaramadım sadece A sutunu değil diğer sutunlardada veri var.Ama böyle bir şey sanırım mümkün değil, yinede geri dönüşleriniz için herbirinize teşekkür ederim.