en kucuk rakamdan buyuk olana dogru otomatik siralama

[adslboy]

Selamlar yapmak istedigim makro kodu ile butona tikladigimizda en kucuk rakamdan en buyugune dogru satir icinde siralama yaptirmak yine buyukten kucuge dogru rakamlarin siralanmasi

Bu uygulama konusunda yardimci olursaniz sevinirim

Saygilar

 

[Necdet]

Merhaba,

Sub Z_A()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To [A65536].End(3).Row
    Range("A" & i & ":T" & i).Sort Key1:=Range("A" & i), Order1:=xlDescending
Next i
Application.ScreenUpdating = True
MsgBox "Büyükten Küçüğe Sıralama Bitmiştir....", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

Sub A_Z()
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To [A65536].End(3).Row
    Range("A" & i & ":T" & i).Sort Key1:=Range("A" & i), Order1:=xlAscending
Next i
Application.ScreenUpdating = True
MsgBox "Küçükten Büyüğe Sıralama Bitmiştir....", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[adslboy]

Yardımınız için çok teşekür ederim

 

[Necdet]

Tekrar merhaba,

Yukarıdaki kodları kısalttım, hem kodları hem dosyayı yeniden ekledim.

Güle güle kullanınız.