Karakter sayısına göre sıralama

[seriouSSamet]

Arkadaşlar ben alt alta yazılan kelimeleri karakter sayısına göre sıralamak istiyorum.

 

[leumruk]

Selamlar,

Sub Sırala()
For i = 1 To [a65536].End(3).Row
Cells(i, "b") = Len(Cells(i, "a"))
Next i
Sat = [a65536].End(3).Row
Range(Cells(1, "a"), Cells(Sat, "b")).Sort Key1:=Range("B1")
Range(Cells(1, "b"), Cells(Sat, "b")).ClearContents
End Sub

Metin uzunluklarını, b sütununa alıp işlemi gerçekleştiriyor ve tekrar b sütununu boşaltıyor. Bu nedenle b sütununda veri olmaması gerekli.

 

[seriouSSamet]

Selamlar,

Sub Sırala()
For i = 1 To [a65536].End(3).Row
Cells(i, "b") = Len(Cells(i, "a"))
Next i
Sat = [a65536].End(3).Row
Range(Cells(1, "a"), Cells(Sat, "b")).Sort Key1:=Range("B1")
Range(Cells(1, "b"), Cells(Sat, "b")).ClearContents
End Sub

Metin uzunluklarını, b sütununa alıp işlemi gerçekleştiriyor ve tekrar b sütununu boşaltıyor. Bu nedenle b sütununda veri olmaması gerekli.

teşekkürler süpersin

 

[leumruk]

Rica ederim. İyi çalışmalar.

 

[modoste]

formülle olanını yazablrmisiniz sayın hocalarım

 

[Necdet]

Merhaba,

Ben makro kullanmamış olsaydım ekteki dosyada olduğu gibi en son sütuna uzunlukları bulan bir fonksiyon yazar ve bu sütuna göre Veri-Sırala dan sıralatırdım.

 

[janveljan]

formülle olanını yazablrmisiniz sayın hocalarım

Ben formülle yapmaya çalışmıştım ama formülle yaparken uzunlukları aynı olan verilerde sorun çıkıyor, uzunlukları eşit olanlardan aynı değeri arka arkaya sıralıyor o yüzden vazgeçtim.

 

[Ali]

Ben formülle yapmaya çalışmıştım ama formülle yaparken uzunlukları aynı olan verilerde sorun çıkıyor, uzunlukları eşit olanlardan aynı değeri arka arkaya sıralıyor o yüzden vazgeçtim.

Aşağıdaki linki inceleyebilirsiniz aynı uzunluktaki veri için farklı değer verdirebilirsiniz.


Sıralama Fonksiyonu Uygulamaları

.

 

[janveljan]

Aşağıdaki linki inceleyebilirsiniz aynı uzunluktaki veri için farklı değer verdirebilirsiniz.


Sıralama Fonksiyonu Uygulamaları

.

Ali Bey teşekkür ederim çok güzel bir çalışma elinize sağlık