Sıralama

[magnesia]

Private Sub Worksheet_Activate()
Range("A2:C" & [A60].End(3).Row).Sort Key1:=Cells(1, "C")
End Sub

Arkadaşlar selam..
Bu kodlarla sayfanın A2:C arasındaki verilerini sıralıyorum.
Sıralama küçükten büyüğe oluyor. Fakat ben sıralamanın büyükten küçüğe olmasını istiyorum.
Yardımlarınızı bekliyorum.
Şimdiden teşekkürler.

 

[Ömer BARAN]

Merhaba.
Artan/azalan durumunu belirleyen sondaki 2 sayısıdır, bu sayıyı 1 yaparsanız artan sıralama olur.

Range("A2:C" & [A60].End(3).Row).Sort [C1], 2

 

[magnesia]

İşlem tamam..
İlginize, bilginize ve emeğinize sağlık.
Çok teşekkür ederim.