Küçükten Büyüğe - Büyükten Küçüğe Sıralama

[umut_umut]

Merhabalar,

Elimde aşağıdaki değerlerden oluşan bir sütun var.

1,5 1,5 1,8 1,8 1,8 1,8 2,0 2,0 2,5 2,5 2,5 3,0 3,0

Burada küçükten başlayıp en büyüğe kadar gitmek, en büyüğe geldiğim zaman tekrar en küçüğe doğru inmek istiyorum. Elimdeki aynı değerlerin yarısını yükselişte yarısını düşüşte kullansın istiyorum.

Kısaca yukarıdaki örnek aşağıdaki gibi sıralansın istiyorum.

1,5 1,8 1,8 2,0 2,5 3,0 3,0 2,5 2,5 2,0 1,8 1,8 1,5

Sırala işlevinde özel liste özelliğini kullanarak çözmeye çalıştım ancak orada tek yönde sıralıyor.

Yardımcı olabilirseniz sevinirim.

İyi günler.

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Sorunuzu; cevabımın altındaki açıklamaları okuyarak bir örnek belge ile desteklemenizde yarar var.
Böylece daha hızlı ve net cevap alacağınızı düşünüyorum.
.

 

[umut_umut]

Merhabalar,

Hoşbulduk, teşekkür ederim.

Örneği aşağıdaki bağlantıda bulabilirsiniz.

http://s4.dosya.tc/server/dbyle1/btktb.xlsx.html

Teşekkür ederim.

 

[umut_umut]

Merhabalar,

Yardımcı olabilecek var mıdır?

 

[Ömer BARAN]

Merhaba.

Dosyaya BURADAN da ulaşabilirsiniz.
.

 

[veyselemre]

Makro ile isterseniz, deneyin.

Sub canEgrisiSirala()
    Range("F:F").ClearContents
    son = Cells(Rows.Count, 2).End(3).Row
    veri = WorksheetFunction.Transpose(Range("B2:B" & son).Value)
    uz = UBound(veri)
    For i = 1 To uz - 1
        For ii = i + 1 To uz
            If veri(i) > veri(ii) Then
                tmp = veri(i)
                veri(i) = veri(ii)
                veri(ii) = tmp
            End If
        Next ii
    Next i
    
    ReDim yVeri(1 To UBound(veri))
    For i = 2 To uz Step 2
        art = art + 1
        yVeri(art) = veri(i)
    Next i

    If (-1) ^ uz = 1 Then uz = uz - 1
    For i = uz To 1 Step -2
        art = art + 1
        yVeri(art) = veri(i)
    Next i
    Range("f2:f" & son).Value = WorksheetFunction.Transpose(yVeri)
End Sub

 

[umut_umut]

Merhabalar,

ÖMER BARAN ve veyselemre ikinize de çok teşekkür ederim. 2 yöntem de epey işime yarayacak.

İyi günler dilerim.