Sorting a table in Excel using VBA?

I have tried to sort a table using the following VBA code. The code does select the correct column, and the column filter does get a small arrow in it, indicating that it is sorted. But the rows do not sort. They stay unsorted.

What is wrong?

Sub SortTableTest()Dim tbl As ListObjectDim columnToSortBy As RangeSet tbl = Sheets("PB").ListObjects("AI")Set columnToSortBy = tbl.ListColumns(9).Range'Sort tableWith tbl.Sort.SortFields.Clear.SortFields.Add columnToSortBy, xlDescending.Header = xlYes.MatchCase = False.ApplyEnd WithEnd Sub
1

Best Answer

First, you missed one parameter in .SortFields.Add method. What you need is:

.SortFields.Add columnToSortBy, xlSortOnValues, xlDescending

Second, question from you comment. Try with this kind of References:

Set columnToSortBy = Range(tbl.Name & "[[#All],[column name here]]")

Random Posts

How do I delete Columns from a table if not another table using SQL?Is there a command or a way to clear workspace and command window at the same time?When to use "Do" function in dplyrRoot Directory Information Included in Compiled Jar File?Block time calculation by block number in Polygon Mumbai TestnetConfusion with the use of CupertinoApp and MaterialApp in FlutterLeft align and right align within div in BootstrapIs there something like "if not exist create sequence ..." in Oracle SQL?Implement the member predicate as a one-linerArray push and referencesIs xvda1 taking up all my disk space on ec2Python3.6 error: ModuleNotFoundError: No module named 'src'How does std::tie work?react-router getting this.props.location in child componentsdatabase: primary key, Clustered or NonClusteredHow can I do an UPDATE statement with JOIN in SQL Server?can't create and generate typeorm migrationWhat does the $SHELL command do besides output the shell when I type it at the command prompt?What is the "bash man page" or "bash manual page" and where can I find it?How can I randomly select (choose) an item from a list (get a random element)?