Home

Need Help with Sorting (Macro)

jim_vbanoob
New Contributor

Hi All,

 

I'm trying to run the Macro below but it crashes every time it get to the highlighted .Apply line. I have no idea why since it did not crash on the first .Apply line. Can someone please point me to the right direction?

 

Thanks

 

Dim arng As Range
Dim brng As Range
Dim crng As Range

Set arng = wsSAdj.Range("A:A")
Set brng = wsSAdj.Range("J:J")
Set crng = wsSAdj.Range("S:S")

For Each icell In brng.Cells
If Right(icell.Value, 5) = "Total" Then
Worksheets("Slides - ADJ").Sort.SortFields.Add Key:=Range( _
icell.Offset(-1, 3), icell.Offset(-1, 3).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Slides - ADJ").Sort
.SetRange Range(icell.Offset(-1, 1), icell.Offset(-1, 1).End(xlToRight).End(xlUp))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
Next


For Each icell In crng.Cells
If Right(icell.Value, 5) = "Total" Then
Worksheets("Slides - ADJ").Sort.SortFields.Add Key:=Range( _
icell.Offset(-1, 3), icell.Offset(-1, 3).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Slides - ADJ").Sort
.SetRange Range(icell.Offset(-1, 1), icell.Offset(-1, 1).End(xlToRight).End(xlUp))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
Next

Related Conversations
Tabs and Dark Mode
cjc2112 in Discussions on
46 Replies
Extentions Synchronization
Deleted in Discussions on
3 Replies
Stable version of Edge insider browser
HotCakeX in Discussions on
35 Replies
How to Prevent Teams from Auto-Launch
chenrylee in Microsoft Teams on
30 Replies
flashing a white screen while open new tab
Deleted in Discussions on
14 Replies
Security Community Webinars
Valon_Kolica in Security, Privacy & Compliance on
13 Replies