• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sıralama

  • Konbuyu başlatan Konbuyu başlatan Hakngnc
  • Başlangıç tarihi Başlangıç tarihi
Katılım
21 Ağustos 2015
Mesajlar
76
Excel Vers. ve Dili
İşte Office 13-Türkçe
Evde Office 10-Türkçe
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
 
selam,
örneği inceleyin..
kolay gelsin..

NOT : Buradaki sıralama formüllerle alfabetik listeleme şeklindedir.
 
Son düzenleme:
Kod:
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
 
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.
 
Geri
Üst