Stránka 1 z 1

VBA - Serazeni radku na zaklade souctu

Napsal: 18 bře 2013 15:16
od 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

Re: VBA - Serazeni radku na zaklade souctu

Napsal: 18 bře 2013 18:39
od 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í !!!! )

Re: VBA - Serazeni radku na zaklade souctu

Napsal: 18 bře 2013 20:30
od HellCoder
Diky Moc! ;)