VBA sort

[Tom F]

Column A (last name), B (first name), and C (grade)

What is the VBA code to sort these three columns based on Column C in increasing order? Columns A,B,C will end right before the last non-blank cell in their respective column.

I’m new to VBA and trying to get it figured out.

Thanks for your guidance and coaching,
Tom

 

[pbt]

Tom

Try the macro recorder for starts. That is the best way for you to learn versus somone just giving you the code.

Record your steps as you go to Data > Sort > Sort by (col C) > Ascending or Desceding

If you have problems, post back

Harry

 

[kmillen]

Sort By MI

Try this.

Sub SortByMI()
'
' SortByMI Macro
'

    Dim count As Integer
    
    count = WorksheetFunction.CountA(ActiveSheet.Range("A:A")) - 1
    
    Range("A1:C1").Select
    Range("C1").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:C" & count).Select
    Range("C1").Activate
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub

I just recorded this macro and modified it with the desired number of cells to sort.

 

[Tom F]

kmillen,

a run-time error '1004': application defined or object-defined error was displayed after executing the code.

The line

Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

was highlighted in yellow.

 

[jindon]

try

Sub test()
With Range("a1", Range("c" & Rows.Count).End(xlUp))
     .Sort key1:=.Cells(1,3), order1:=xlAscending, header:=xlGuess
End With

 

[Tom F]

Thanks Jindon,

After adding the End Sub it worked like a charm.

I'll need some time to process this to see exactly how it works.

Thanks to all who contribute to make this a successful, helpful board,
Tom