Automatic Sorting of Multiple Columns

[kt_excel]

I'm trying to create a document that automatically sorts itself when values are changed or added. The first column I'm sorting is a numerical value, and I'm using the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2:C99")) Is Nothing Then
[A1].CurrentRegion.Sort [C1], xlAscending, , , , , , xlYes
End If
End Sub

It's working perfectly, but now I need to sort a secondary column, which is a date.

The values are in column C, and the dates are in column F.

Can someone PLEASE try to add this second column to sort?!

 

[AlphaFrog]

Hi and welcome to the forum.

Try this...

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_Change([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range)
    [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] Application.Intersect(Target, Range("C2:C99, F2:F99")) [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
        [A1].CurrentRegion.Sort [C1], xlAscending, [F1], , xlAscending, , , xlYes
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

 

[kt_excel]

It worked! Than you so much!

 

[AlphaFrog]

You're welcome.