Prikazi cijelu temu 29.12.2024 20:40
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:VBA EXCEL sort po dvije kolone
Imam jedan kod koji sortira po dvije kolone uzlazno. Zanima me da li je to dobro ili se treba nesto ispraviti ?

PreuzmiIzvorni kôd (Visual Basic):
  1. private sub sortiraj()
  2. Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  3. ActiveWorkbook.Worksheets("List1").Sort.SortFields.Clear
  4. ActiveWorkbook.Worksheets("List1").Sort.SortFields.Add Key:=Range("A1:A" & zadnjRed), _
  5.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  6. ActiveWorkbook.Worksheets("List1").Sort.SortFields.Add Key:=Range("B1:B" & zadnjiRed), _
  7.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
  8. With ActiveWorkbook.Worksheets("List1").Sort
  9.        .SetRange Range("A1:C48")
  10.        .Header = xlGuess
  11.        .MatchCase = False
  12.        .Orientation = xlTopToBottom
  13.        .SortMethod = xlPinYin
  14.        .Apply
  15. End With
  16. end sub
zivot je moja domovina.