How To Auto Sort Data By Any Column Using VBA in Microsoft Excel 2010

In this article, you will learn how to automatically sort data by a particular column.
 
Let us take an example:

Following is a snapshot of the data we have. Refer below snapshot:
 
img1
 
We want a code that will automatically sort the data on column A as we type.
 
Click on Developer tab

From Code group, select Visual Basic
 
img2
 
Enter the following code on the sheet you are working. (sheet1 in our example)

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Not Intersect(Target, Range(“A:A”)) Is Nothing Then

        Range(“A1″).Sort Key1:=Range(“A2″), _

          Order1:=xlAscending, Header:=xlYes, _

          OrderCustom:=1, MatchCase:=False, _

          Orientation:=xlTopToBottom

    End If

End Sub
 
img3
 
Following is the result of the above code.
 
img4
 
The above code will activate whenever there is change in column A, if you want to activate the macro when there is any change in column B, then you have to make slight adjustment
 
Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Not Intersect(Target, Range(“B:B”)) Is Nothing Then

        Range(“B1″).Sort Key1:=Range(“B2″), _

          Order1:=xlAscending, Header:=xlYes, _

          OrderCustom:=1, MatchCase:=False, _

          Orientation:=xlTopToBottom

    End If

End Sub
 
img5
 
In this way, you can easily sort the data by any specific column. The code will get triggered & sort the data automatically as you type information in column A (in first example) & column B (in second example). This will save a lot of time if we have to sort the data on a regular basis.
 
 

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Terms and Conditions of use

The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.

Visit Us On TwitterVisit Us On FacebookVisit Us On Google PlusVisit Us On Youtube