VBA - Serazeni radku na zaklade souctu

[HellCoder]

Ahoj, v excelu jsem zacatecnik a tak vas prosim o radu.
Mam 4 sloupce :
ID, C, M, V
Potreboval bych makro ktere : Me setridi radky(nezmenene) Podle souctu hodnot C, M a V v radku od nejvetsiho po nejmensi.
Predem Diky.
(Nejedna se o praci do skoly, jen potrebuju seradit vysledky z testu)
S pozdravem
HellCoder

[Reklama]

[cmuch]

Tady je jedno makro.
Změň si oblast a sloupec podle kterého to má rovnat
(Zde ("D11:H17") a ("D11"))

Kód: Vybrat vše

Sub serad_z_a()
'
   With ActiveWorkbook
     .ActiveSheet.Sort.SortFields.Clear
     .ActiveSheet.Sort.SortFields.Add Key:=Range("D11"), _
       SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
   End With
   With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("D11:H17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
   End With
End Sub

// Pro Ex2010 (pro Ex2007 nebude funkční !!!! )

[HellCoder]

Diky Moc!