Sorting Challenge

gbaker · #1 06-21-2012, 08:26 AM

I have a challenge Sorting a list. Instead of the information moving to the top it falls to the bottom. All the blanks are on the top.
I have attached a worksheet showing the issue I am facing.
Can anyone help!!!
Thanks in advance.

Code:

Sub testforforum()
'
' testforforum Macro
'
'
    ActiveWindow.SmallScroll Down:=102
    Range("A1:L").Select
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add Key:=Range( _
        "A1:A15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add Key:=Range( _
        "B1:B15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("DATA").Sort
        .SetRange Range("A1:A15")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sorting by certain criteria	randenius	Excel	2	06-11-2012 02:18 AM
Word Challenge	jpotter2	Word	3	03-22-2011 02:07 PM
Challenge!! Need help though. (Conditional formatting)	knuckles70	Excel	2	02-05-2010 12:24 PM
CHALLENGE! Issue sorting data containing relative references on a separate tab	lax828	Excel	3	01-07-2010 11:28 AM
Challenge: Get Custom Form to Show up in Reader Pane in 2007	JohnGG	Outlook	0	08-21-2009 05:44 AM