Azalan Sıralama

[pigment79]

Merhaba değerli arkadaşlar...Ekteki dosyamda sevk tarihi başlığı altında azalan sıralama makrosuna ihtiyacım var. yardımlarınızı rica ediyorum. tıkla azalan sıralama butonuna dokunduğumda bunu yapabilsin.
saygılarımla

 

[AS3434]

Butona kodları atayın.
Sub Makro1()
[A2:I1000].Sort Key1:=Range("F2"), Order1:=xlDescending
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Makro2()
[G2:G100].Sort Key1:=Range("G2")
End Sub

 

[pigment79]

teşekkür ederim. kolay gelsin...