eksi değere göre kod sıralama

[Hulyaa1]

arkadaşlar, farklı kodların kendi arasında değerleri eksi olanlarının seçilip sıralanması ile ilgili bi makroya ihtiyacım var.ekte ayrıntılı olarak anlattım. yardımcı olabilirseniz sevinirim.

 

[Recep İpek]

Sn.Hulyaa

Sorunuzda gerek örnek dosya, gerek ise sonucun nasıl olmasını istediğinizi açıkça belirtdiğiniz ve
örnek bir soru sorma şekli teşkil ettiği için şahsım adına size teşekkür ederim.

Çalışmalarınızda başarılar dilerim.

 

[Hulyaa1]

ben teşekkür ederim
umarım açıklayıcı olabilmişimdir arkadaşların yardımına çok ihtiyacım var çünkü:roll:

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Sub Sırala()
    sonsat = [a65536].End(3).Row
    Range("A2:C" & sonsat).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("A2").Select
    MsgBox "Sıralama Bitti"
End Sub

 

[Hulyaa1]

bütün satırları seçip sıralama yapıyor sanki. ben her kod için eksi değerleri seçip sıralama yaptırmak istiyorum.