Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
private sub sortiraj() Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("List1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("List1").Sort.SortFields.Add Key:=Range("A1:A" & zadnjRed), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("List1").Sort.SortFields.Add Key:=Range("B1:B" & zadnjiRed), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers With ActiveWorkbook.Worksheets("List1").Sort .SetRange Range("A1:C48")