Avko 29.12.2024 19:40
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

zxz 29.12.2024 23:35
Predmet:Re:VBA EXCEL sort po dvije kolone

Hehe pitas jeli dobro.
Valjda si isprobao i ako radi onda je sigurno dobro.

Avko 30.12.2024 10:32
Predmet:Re:VBA EXCEL sort po dvije kolone

radi, ma mislio sam dali je dobro sto se tice vishka-manjka
Ja sam to prepisao sa interneta i mozda ne treba sve, recimo prvi red.
Zasto bi selektirao kada kasnije imam odreden raspon sortiranja, a kada sam upotrijebio ovo:

PreuzmiIzvorni kôd (Visual Basic):
  1. Range("A1:C13").Sort    Key1:=Range("A1"), Order1:=xlAscending, _
  2.                                 Key2:=Range("B1"), Order1:=xlAscending, _
  3.                                 Header:=xlYes

to nije radilo

i ovo nije radilo:

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub SortMultipleColumns()
  2.     Range("A1:C" & zadnjiRed).Sort Key1:=Range("A1"), Order1:=xlAscending, _
  3.                          Key2:=Range("B1"), Order2:=xlDescending, _
  4.                          Header:=xlNo
  5. End Sub

zato pitam, radi ali dali je sve potrebno. Htio bi izbaciti nepotrebno