Sort Based on 2 conditions

[MM91]

So in column A I have a numerical value that i need to sort by number on column a and then by type on column L. I am piecing together a code using the macro recorder but I able to sort them seperately but it messes up the sort order once I try to secondary sort by column L. Any help or guidance would be appreciated!

Option Explicit
Sub SortMyData()
Dim lr As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A7:Q" & lr).Sort key1:=Range("A7"), order1:=1
Application.ScreenUpdating = True

    Cells.Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("L3:L25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A3:L25")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

    End With

End Sub

 

[MM91]

Sorry but that makes no sense, in your image there are no dates.

Apologies! I added the dates to the column b to show what I want to accomplish. I need to first sort by section # in column A, then by part type (Purchased or Prod. Order) and then by date so the last added part will be at the bottom of that section. Hopefully that makes sense! thank you!!

 

[Fluff]

Ok, how about

Sub SortMyData()
   Dim lr As Long
   Application.ScreenUpdating = False
   lr = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A7:Q" & lr).Sort Range("A7"), xlAscending, Range("L7"), , xlAscending, Range("B7"), xlAscending, xlNo
End Sub

 

[MM91]

Ok, how about

Sub SortMyData()
   Dim lr As Long
   Application.ScreenUpdating = False
   lr = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A7:Q" & lr).Sort Range("A7"), xlAscending, Range("L7"), , xlAscending, Range("B7"), xlAscending, xlNo
End Sub

thank you!! the only change I have would be it puts produced orders before purchased orders. Is it as simple as changing ascending for sort range ("L7") to descending? your help is much appreciated!!

 

[MM91]

thank you!! the only change I have would be it puts produced orders before purchased orders. Is it as simple as changing ascending for sort range ("L7") to descending? your help is much appreciated!!

answered my own question, it worked great! thanks!

 

[Fluff]

You're welcome & thanks for the feedback.