Alphabetize Rows with Macro

[ThatGuyNamedDean]

I am looking to alphabetize the rows of a spreadsheet based on the text in column A. The sorting also has to carry the information associated in the adjacent columns B though AK with the sorted information from column A. I would like to write this into a macro so a user can add data to the end of the previous work and press a button to have it sorted into the original. I'm not sure if this is possible so any help is much appreciated, thanks!

 

[mhillmann]

You can put the data in a table then use the autofilter function in VBA. The call looks like this:

    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1" _
        ).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1" _
        ).Sort.SortFields.Add Key:=Range("Table1[[#All],[Heat]]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[L. Howard]

Maybe start with this recorded macro, slightly modified.

Adjust sheet name.
Headers or No headers?? See the yes / no line for that.

Howard

Option Explicit

Sub SortOf()
    
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange ActiveSheet.UsedRange
        .Header = xlYes 'xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

 

[ThatGuyNamedDean]

Howard I have altered the code to fit my sheet and it runs with no errors but the actual alphabetizing does not happen.



Option Explicit




Sub SortOf()

With ActiveWorkbook.Worksheets("Database").Sort
.SetRange ActiveSheet.UsedRange
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

 

[ThatGuyNamedDean]

My database just needed a slight tweak, thank you all it is working now!

 

[L. Howard]

Good, thanks for the feed back.

Howard