sort table after data update

**maacmaac** · 10-13-2009, 03:22 PM

I have a spreadsheet with 3 tables (all side-by-side). Table one has 8 rows of data; table two has 2 rows of data; table three has 3 rows of data. I am looking for assistance on how to sort each table in desceding order (by sales). Basically I want to do a sort everytime there is a change of values in any of the tables. I have attached a sample spreadsheet to clarify the table layout and the manner in which the values change within each table. Any assistance is greatly appreciated. Thanks.

**StephenR** · 10-13-2009, 04:39 PM

I named your three tables "One", "Two" and "Three" and then put this in the sheet module - seems to work. Right-click on the sheet tab, view code and paste in.

Private Sub Worksheet_Calculate()

Application.EnableEvents = False
Range("One").Sort Key1:=Range("One")(1, 3), Order1:=xlDescending, Header:=xlNo
Range("Two").Sort Key1:=Range("Two")(1, 3), Order1:=xlDescending, Header:=xlNo
Range("Three").Sort Key1:=Range("Three")(1, 3), Order1:=xlDescending, Header:=xlNo
Application.EnableEvents = True

End Sub