Kako da napišem makro naredbu koja bi radila na trenutno otvorenom listu. Listova ima 30. Ikona za makro naredbu postavljena je na vrh stranice u brzi izbornik.To je opcija za ručno sortiranje bez puno muke. Koristim excel 2010.
Ispod je primjer za prvi list, a treba ih za 30.
Sub Makronaredba2()
'
' Makronaredba2 Makronaredba
'
' Tipkovni prečac: Ctrl+m
'
Range("B7:H30").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("F7:F30"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("B7:H30")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("I7").Select
End Sub