Sub SortDataByAcctCode()
'
' SortDataByAcctCode Macro
Application.ScreenUpdating = False
Sheets("Expenses").Visible = True
With Sheets("Expenses")
.Range("A1:Z1").AutoFilter
ActiveWindow.SmallScroll ToRight:=3
.AutoFilter.sort.SortFields.Clear
.AutoFilter.sort.SortFields.Add Key:= _
.Range("H1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With .AutoFilter.sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("A1:Z1").AutoFilter
End With
Sheets("Expenses").Visible = False
Application.ScreenUpdating = True
End Sub
Sub SortID()
'
' SortID Macro
'
Application.ScreenUpdating = False
Sheets("Expenses").Visible = True
With Sheets("Expenses")
.Columns("A:A").Select
.AutoFilter.sort.SortFields.Clear
.AutoFilter.sort.SortFields.Add Key:= _
.Range("A2:A2254"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With .AutoFilter.sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Sheets("Expenses").Visible = False
Application.ScreenUpdating = True
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.