Kod ile matrisdeki verileri büyükten küçüğe sıralama

[bitirme]

Merhabalar matristeki verileri bir sütuna büyükten küçüğe şeklinde kod yazarak sıralayabilir miyiz?

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[bitirme]

Çok teşekkür ederim ellerinize sağlık. Bir şey daha sorabilir miyim? Yardımcı olabilirseniz çok sevinirim.
sıralamasını yaptığımız bu değerlere karşı gelen matristeki i/j değerlerini bulup ekteki gibi yazdırabilecek bir kod yazılabilir mi?

 

[apocalyt]

şunu deneyiniz..

Sub daylight()
For a = 1 To WorksheetFunction.Count(Range("ab6:au24"))
x = WorksheetFunction.Large(Range("ab6:au24"), a)
Cells([aw10000].End(3).Row + 1, "aw") = x
Next a
End Sub

 

[apocalyt]

pardon..sn muygun hocamın cevabını görmemiştim..alternatif olsun artık

 

[bitirme]

şunu deneyiniz..

Sub daylight()
For a = 1 To WorksheetFunction.Count(Range("ab6:au24"))
x = WorksheetFunction.Large(Range("ab6:au24"), a)
Cells([aw10000].End(3).Row + 1, "aw") = x
Next a
End Sub

diğer kodların altına kopyaladım yazdıklarınızı ama çalışmadı ben mi yapamadım acaba?

 

[apocalyt]

bu verdiğim kod sadece sıralama yapıyor..yan matristeki i/j değerlerini bulmaz..ben o kadar mesajı görmeden yolladım..sizin i/j değerlerini istedeiğiniz mesajın altına denk gelmiş ancak sıralama yapmasında hiç bir sorun yok..büyükten küçüğe sıralama yapıyor..

 

[apocalyt]

i/j değerlerinide istiyorsanız şu kodu deneyin...

Sub dayliht()
Range("AW4:az65536").ClearContents
For a = 1 To WorksheetFunction.Count(Range("ab6:au24"))
x = WorksheetFunction.Large(Range("ab6:au24"), a)
Cells([aw10000].End(3).Row + 1, "aw") = x
Cells([ay10000].End(3).Row + 1, "aw").Offset(0, 2) = Cells(4, Range("ab6:au24").Find(x).Column)
Cells([az10000].End(3).Row + 1, "aw").Offset(0, 3) = Cells(Range("ab6:au24").Find(x).Row, "aa")
Next a
End Sub

 

[bitirme]

Sanırım bu yazdığınız en son kod hem sıralamayı yapıyor hem de i/j değerlerini buluyor. Bu kadar kısa bir kodla yardımcı olduğunuz için gerçekten çok teşekkür ederim çok çok yardımcı oldunuz. Umarım çok fazla olmuyorumdur ama bir konuda daha yardımcı olabilirseniz çok sevinirim. Sanırım bu biraz daha karışık. En basit şekilde ekteki dosyada anlatmaya çalıştım. EN kısa zamanda yardımınızı bekliyorum. çok teşekkürler şimdiden.

 

[bitirme]

İstediğim şey çok mu karışık çözümü yok mu Yardımcı olabilecek kimse yok mu