Sorting a table

[Jaymond Flurrie]

What's the simple way to do this: I have a worksheet called GeneralDB and I have a table called Area there with one single column named Area and I want to sort the table ascending. It can't be very hard to do, right?

The only thing I found by Googling was some overly complicate sort by color etc.

 

[icklemiller]

If i'm getting the question right, i think you can use one of the buttons on the toolbar... select the column you want to sort and press the button that has a letter A above a Z with a downwards pointing arrow to the right hand side... or click on the data menu, then select sort...

Hope that's what you're after?

 

[Jaymond Flurrie]

If i'm getting the question right, i think you can use one of the buttons on the toolbar... select the column you want to sort and press the button that has a letter A above a Z with a downwards pointing arrow to the right hand side... or click on the data menu, then select sort...

Hope that's what you're after?

Ah, naturally I forgot to tell that I need this done by VBA.

 

[icklemiller]

Ah...thought it was too good to be true!!! A simple answer for once!! Sorry... VBA is defo not my forte!!!

 

[Jaymond Flurrie]

Ah...thought it was too good to be true!!! A simple answer for once!! Sorry... VBA is defo not my forte!!!

Yeah, sometimes I forget this forum is about Excel and not Excel VBA, so yes, my fault. I'll post the answer here once I find it.

 

[VoG]

Why not record a macro whilst sorting manually.

 

[Jaymond Flurrie]

Why not record a macro whilst sorting manually.

Oh yeah, that's easier. Here's the result:

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

I might be able to delete something useless from there, but that seems to work.