• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 180
  • Last Modified:

Auto sort routine

EE Professionals,

I have a macro that looks for changes in a column of numbers.  When a number is added to the last column, it automatically "fits" the number into the proper sequence (Low to High).

Example;
1
2
3
4
5

Now if I add 3.2 in the last cell, it will reorder the column as;

1
2
3
3.2
4
5

The problem is, if I add 3.2.1, it will put it at the end of the column instead of after 3.2; apparently not recognizing the expanded requirement for another sub.

Any ideas on how to fix the recognition of the number or position based on this schema?

Thank you,

B.
0
Bright01
Asked:
Bright01
1 Solution
 
nap0leonCommented:
3.2 is a number
3.2.1 is text

numbers are < text

Change your values from:
1
2
3
3.2
3.2.1
4
5

to
'1
'2
'3
'3.2
'3.2.1
'4
'5

Now auto-sort will work as expected.

It is not enough to change the cell-type to "text", you have to use the single quotes.
There is probably a programmatic way of handling this, but the above is an explanation of what you are seeing.
0
 
SANTABABYCommented:
I think to get you the desired result, you may need more. Because your sorted list should be ordered like:

1
2
3
3.2
4
5
.....
9
9.2
10.0
11.2
...

Am I right?

How many decimal points (maximum) you expect to see in your data to be sorted?
Are you okay if the solution uses an additional auxilary column for sorting?
0
 
Patrick MatthewsCommented:
Which version of Excel?
0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Bright01Author Commented:
I'm using Excel 2010.  I'd like to have two decimal points such as in an outline.  I tried to define the cells as "text" but it did not sort correctly with 2 decimal points.

B.
0
 
Patrick MatthewsCommented:
I did the following:

1) Added this function to a regular VBA module:

Function Explode(InputString As String, Optional MaxLevels As Long = 10, Optional LevelDigits As Long = 6)
    
    Dim arr As Variant
    Dim ArrResult() As String
    Dim Counter As Long
    
    arr = Split(InputString, ".")
    ReDim ArrResult(0 To MaxLevels - 1) As String
    
    For Counter = 0 To UBound(ArrResult)
        If Counter <= UBound(arr) Then
            ArrResult(Counter) = Format(arr(Counter), String(LevelDigits, "0"))
        Else
            ArrResult(Counter) = Format(0, String(LevelDigits, "0"))
        End If
    Next
    
    Explode = Join(ArrResult, ".")
    
End Function

Open in new window


2) On a worksheet, I entered these headers into A1:C1...

Item, Text, Helper

3) In A2:A???, I entered various values, such as 1, 2, 3.2, 4.2.7, etc

4) I selected A1:C???, and converted the range into a Table (with header row checked)

5) In B2 I entered this formula...

="Item "&[@Item]

6) In C2 I entered this formula:

=Explode([@Item])

<Both of those formulas should automatically populate for the rest of the Table>

7) I hid Column C to hide the "helper" results, which I use as the sort key

8) I added this code to the sheet module for that worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Me.[a:a]) Is Nothing Then
        Application.EnableEvents = False
        Me.[a1].Sort Key1:=Me.[c1], Order1:=xlAscending, Header:=xlYes
        Application.EnableEvents = True
    End If
    
End Sub

Open in new window





Now, whenever you add a new value at the bottom, or change an existing value in Column A, the table re-sorts the way you want it to.

Please see the attached file for a demonstration.


Q-27346423.xlsm
0
 
Bright01Author Commented:
matthewspatrick!  This is great!  Thank you....... great job.

B.
0
 
Bright01Author Commented:
I've requested that this question be closed as follows:

Accepted answer: 0 points for Bright01's comment http:/Q_27346423.html#36720769

for the following reason:

Great solution! &nbsp;You are clearly a &quot;problem solver&quot; or &quot;puzzle master&quot;!<br /><br />B.
0
 
Patrick MatthewsCommented:
I think you selected your own comment as the answer in error.
0
 
Bright01Author Commented:
Excellent solution!

Much thanks!

B.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now