Copy of the macro I used in my autosort Spreadsheet Private Sub Worksheet_Change(ByVal Target As Range) If Not (Application.Intersect(Worksheets(1).Range(“A150:H180”), Target) Is Nothing) Then DoSort End If End Sub Private Sub DoSort() Sheet1.Range(“A150:H180”).Sort Key1:=Sheet1.Range(“A1”), Order1:=xlAscending, _ Key2:=Sheet1.Range(“D1”), Order2:=xlDescending End Sub
07 3013 0306
Aussie owned and operated, with 23+ years of industry experience, Gold Coast InfoTech is delighted to support all of your business technology requirements.
Gallery
Contacts
success@goldcoastinfotech.com.au
1800 291 071