Makro - Sıralama

[altanson]

Arkadaşlar Herkese Merhaba;

Makro ile sıralama yapmak için aşağıdakine benzer bir kod kullanıyorum;

Sub a()

    Range("c4:L" & [c65536].End(3).Row).Select
    Range("d3").Activate
    Selection.Sort Key1:=Range("d3"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("d3").Select
End Sub

Sıralanan bölümdeki verileri düşeyara ile başka bir listeden alıyorum fakat bu kod ile sıralama yaptığımda #YOK hatası verenleri listenin en başına sıralıyor. bu verileri listenin en altına sıralamasını nasıl sağlayabiliriz?

Örnek dosya da daha iyi anlaşılır umarım.

 

[Ali]

Order1:=xlDescending

kısmını

Order1:=xlAscending

olarak değiştiriniz.

 

[altanson]

teşekkürler fakat verileri bu sefer artan şeklinde sıraladı.

Ben Hem azalan sıralama yapmasını hemde "---" şeklinde olan verileri listenin en altına koymasını istiyorum...

 

[Ali]

Bu durumda eski makronuzu kullanın.

D3 hücrenizdeki formülü

=EĞER(EHATALIYSA(DÜŞEYARA(C3;$I$3:$J$8;1;0));0;DÜŞEYARA(C3;$I$3:$J$8;1;0))

olarak yapıp D sütununun hücre biçimlendirmesini

[=0]"--";Genel

olarak düzenleyip makronuzu çalıştırın.

 

[altanson]

Teşekkürler Sn. Ali, elinize sağlık.