Sorting Payment list schedule

[josros60]

Hi,

i have spreadsheet with the fields: date, vendor name, amount how can the code below be modify to sort the date and also vendor name with same date.

code:

Private Sub Worksheet_Change(ByVal Target As Range)'Updateby Extendoffice 20160606
    On Error Resume Next
    If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("A4").Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _
                                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

thank you

 

[Fluff]

How about

     Range("A4").Sort Key1:=Range("A5"), Order1:=xlAscending, _
                          Key2:=Range("B5"), Order2:=xlAscending, _
                          Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

 

[josros60]

thanks so much, worked good.

 

[Fluff]

You're welcome & thanks for the feedback