Sıralamayı büyükten küçüğe doğru yaptırmak.

[İsmail Küçükşengün]

Merhabalar;

Bir çalışma kitabındaki "veri1" adlı sayfaya userformdan kaydettiğim
verilerden D sütununda bulunanlara göre, aşağıdaki kodla, KÜÇÜKTEN BÜYÜĞE doğru sıralatıyorum.

Private Sub UserForm_Initialize()
Sheets("veri1").Select

Range("A2:AB65500").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D2").Select


End Sub


D sütunundaki verileri, küçükten büyüğe değil de, BÜYÜKTEN KÜÇÜĞE DOĞRU sıralatabilmek için Kodda ne gibi değişiklik gerekir.

Şimdiden Teşekkürlerimle.

 

[Recep İpek]

Sayın kucuksengun,

Denemedim ama xlAscending özelliğini xlDescending olarak deneyebilirsiniz.

 

[İsmail Küçükşengün]

Sn. ripek;

Çok teşekkür ediyorum.
Sorunumu çözdünüz.

Selamlarımla,