Sortiranje tabele ( prazna polja bi trebala biti zadnja)
Kada aktiviram ovakav makro prvo imam prazne čelije, pa brojeve, pa tek onda slova. Šta da uradim da mi prazne čelije budu zadnje.
Sub Makronaredba2()
'
' Makronaredba2 Makronaredba
'
' Tipkovni prečac: Ctrl+n
'
Range("C4:I73").Select
Range("I4").Activate
ActiveWorkbook.Worksheets("NASLOVNA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("NASLOVNA").Sort.SortFields.Add Key:=Range("C4:C73" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("NASLOVNA").Sort
.SetRange Range("C4:I73")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J54").Select
ActiveWindow.SmallScroll Down:=-84
 |  |
 |
