Makro ile tersine sıralama

[tufan03]

Arkadaşlar ekli dosyada H,I ,Jve K sütunlarında bulunan puanları büyükten küçüğe(tersine) makro ile nasıl sıralatabiliriz.
Selamlar.

 

[veyselemre]

Sub Makro1()
Range("b5:J22").Sort Key1:=Range("H5"), Order1:=xlDescending, Key2:=Range("I5") _
, Order2:=xlDescending, Key3:=Range("J5"), Order3:=xlDescending
End Sub

 

[Seyit Tiken]

Veysel Hocamızın kodlarının, aynı işi gören kırpılmış hali.

Sub Makro1()
Range("H5:K22").Sort Key1:=Range("H5"), Order1:=xlDescending
End Sub

 

[tufan03]

Sayın Veysel Emre ve Seyit Diken çok teşekkür ederim