TWAPMTS Report MACRO Steps for Excel 2010:
1) Go to E-print through Howdy to download the report.
2) Highlight Column A.
3) Go to View in the Menu bar
4) Use the down arrow under Marcos.
5) Record Marco
6) Enter Marco Name: twapmts
7) The Shortcut Key is option. You can use it if you want.
8) Store Marco In: Personal Marco Workbook.
9) Click OK
10) Use the down arrow under Marcos.
11) Stop Recording
12) Use the down arrow under Marcos.
13) Highlight Marco Name: PERSONAL.SXSB!twapmts
14) Click Step Into
15) Delete all text to the right hand side under general.
16) Copy the MACRO information provided below.
17) Paste the information in place of the information deleted in step 15.
18) Save
19) Click X and close the Marco
20) Click OK “This command will stop the debugger.”
21) Use the down arrow under Marcos.
22) View Marcos.
23) Highlight Marco Name: PERSONAL.SXSB!twapmts
24) Run
25) The file has now opened properly and has been sorted by College/Division, Department and Student Name.
26) Save your file as an Excel Workbook.
27) Now that the Macro is saved you can select it and use it when opening the report in the future.
COPY INFORMATION BELOW FOR STEP 16.
Sub twapmts()
'
' twapmts Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1)) _
, TrailingMinusNumbers:=True
Cells.Select
ActiveWorkbook.Worksheets("getreport").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("getreport").Sort.SortFields.Add Key:=Range( _
"U2:U2748"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("getreport").Sort.SortFields.Add Key:=Range( _
"V2:V2748"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("getreport").Sort.SortFields.Add Key:=Range( _
"B2:B2748"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("getreport").Sort
.SetRange Range("A1:AN2748")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub