Makroda değişiklik

[kemalist]

Aşağıdaki makro ile küçükten büyüğe sıralama yapılıyor.Benim istediğim büyükten küçüğe sıralama yapması.Burada nasıl bir değişiklik yapmak gerekir.
İlginiz için şimdiden teşekkür ederim.

Sub SIRALA()

With Sheets("data") ' SIRALAMA

.Range("S7:T406").Sort Key1:=.Range("S7"), Order1:=xlAscending, Header:=xlNo

Application.CutCopyMode = False
End With


End Sub

 

[muratboz06]

Sub SIRALA()

With Sheets("data") ' SIRALAMA

.Range("S7:T406").Sort Key1:=.Range("S7"), Order1:=xlDescending, Header:=xlNo

Application.CutCopyMode = False
End With
End Sub

 

[kemalist]

Yukarıda boşluklar oluşuyor örnek dosyayı ekledim.

 

[Merhum İdris SERDAR]

.

Bunu deneyin.

Sub Makro1()

Dim sonsat As Long
sonsat = Range("S7").End(xlDown).Row
With Sheets("EMA21")
Range("S7:T" & sonsat).Sort Key1:=Range("S7"), Order1:=xlDescending, Header:=xlNo
End With

End Sub

.

 

[kemalist]

Teşekkür ederim ilginize.