Excel VBA sort entire Sheet with 3 keys

[OlivierS]

Hi,

i'm having trouble when running a Macro to:
- select my sheet (called SFDC)
- select all data
- sort all data ascendant using columns Account Name then Community then Status

Thanks

 

[blbat]

What Columns are you using?

Is your "Account Name" column A, "Community" column B and "Status" Column C?

 

[blbat]

Assuming you are using Columns A, B and C, this should work for you:

Sub Macrosort()

Dim Ws As Worksheet, Rngsort As Range, RngKey As Range, RngKey2 As Range, RngKey3 As Range

'Populate Ws
Set Ws = ActiveWorkbook.Worksheets("SFDC")

'Clear out any previous Sorts that may be leftover
Ws.Sort.SortFields.Clear

'range that includes all columns to sort
Set Rngsort = Ws.UsedRange

'Columns with keys to sort
Set RngKey = Ws.Range("A1")
Set RngKey2 = Ws.Range("B1")
Set RngKey3 = Ws.Range("C1")


'Perform the sort
With ActiveWorkbook.Worksheets("SFDC").Sort
    Rngsort.Sort Key1:=RngKey, Order1:=xlAscending, Header:=xlYes, OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlSortColumns, DataOption1:=xlSortNormal
    Rngsort.Sort Key1:=RngKey2, Order1:=xlAscending, Header:=xlYes, OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlSortColumns, DataOption1:=xlSortNormal
    Rngsort.Sort Key1:=RngKey3, Order1:=xlAscending, Header:=xlYes, OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlSortColumns, DataOption1:=xlSortNormal


End With


End Sub

 

[OlivierS]

@bibat Thank you. Worked like a charm !

 

[blbat]

Glad it worked out for you.