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?!
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?!