Sorun sizin excel versiyonunuzdan kaynaklanıyor. Üst versiyonlarda sıralamayı tam sizin istediğiniz gibi yapıyor, bunu çözmekte çok kolay değil belki bir makro ile yapılabilir.
Sub sirala()
sutun = 1
For x = 1 To [a65536].End(3).Row - 1
For y = x + 1 To [a65536].End(3).Row
If Cells(x, sutun) > Cells(y, sutun) Then
ara = Cells(x, sutun)
Cells(x, sutun) = Cells(y, sutun)
Cells(y, sutun) = ara
End If
Next
Next
End Sub
Sayın veyselemre verdiğiniz kodu çalıştırdım ve bana yukarıdaki resimde B sütunundaki sıralamayı aynen verdi.Benim ulaşmak istediğim C sütunu.İlginiz için teşekkür ederim.
Sayın veyselemre çok teşekkür ediyorum.
Herhalde ben bir yanlışlık yaptım.
Gönderdiğiniz dosya ya göre denedim sonuç istediğim gibi.
Çalışmalarınızda başarılar diliyorum.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.