küçükten büyüğe sıralama

[Rose3]

köşegene göre simetrik bir matristeki sayıları bir sutunda küçükten büyüğe sıralatmak istiyorum. köşegen üzeri boştur. makro koduyla nasıl yapabilirim?

 

[kayserciyes]

örnek dosya ekleye bilir misiniz

 

[Rose3]

http://i.hizliresim.com/dkWdzZ.png

 

[Ömer BARAN]

Merhaba.
G2 hücresine aşağıdaki formülü uygulayıp aşağı doğru kopyalayın.

=KÜÇÜK($B$2:$E$5;SATIRSAY($G$1:G1)*2-1)

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

Range("F:F").ClearContents

Dim liste()
liste = Range("b2:e5")

Set dic = CreateObject("scripting.dictionary")
For Each x In liste
If Not IsEmpty(x) Then
aranan = x
If Not dic.exists(aranan) Then
dic.Add aranan, ""
End If
End If
Next x
Range("F2").Resize(dic.Count, 1) = Application.Transpose(dic.keys)

Range("F1") = "Sıralama"
Range("F1:F" & Rows.Count).Sort Key1:=Range("F1"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False

End Sub

. . .

 

[Rose3]

teşekkür ederim..