Soru Küçükten büyüğe Sıralama yapma

[ufukufuk01]

örnek Metin (
http://dosya.co/3zyjtmjl7kkp/Sporcu_sırala.xlsx.html )

Merhabalar

Ekteki örnek dosyamda olduğu gibi sayfa1 sporcular ve kg ları var gelen kayıtlar kategorilere göre yan yana giriliyor. Girilen kayıtlar sayfa2 ye kg ı küçükten büyüye doğru olarak sıralamak. Örnekte de yazdığım gibi bazı kategoriler yok. Konu hakkında nasıl bir kod ile sıralama yapabilirim. Kg ile sporcunun adı doğru olarak sıralanacak.

Tşk. ederim.

 

[ridvanucok]

Merhaba,

A'dan Z'ye sıralamak için aşağıdaki sorguyu kullanıyorum. Küçük düzeltmelerle talebinizi gerçekleştirebilirsiniz.

Sub adanzye()
'
' adanzye Macro
'

'
    ActiveCell.Columns("A:B").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Add Key:=ActiveCell. _
        Offset(0, 1).Range("A1:A60"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet3").Sort
        .SetRange ActiveCell.Range("A1:B60")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[ufukufuk01]

İlginize çok tşk. ederim. Fakat tam olarak anlatmak istediğim bu değildi. ama yinede çok tşk. ederim