Sorting Rows in ascending order based on column B - with VBA

[tyrese213]

Hi,

Question, I am trying to sort full rows of data with vba based on the Value of Column B. I have 1500 rows. each of these rows have a number in column B.

Column B is a number field and the rest of the columns are text fields...

I have to do this each day for 4 sheets before I run some other vba code. (that imports into another spreadsheet but before I import the data i want it automatically sorted) what is the correct syntax for this.. thankyou all..

 

[jindon]

1) What is the data range?
2) Does it have heading?

 

[Dylan]

Let say your data start from row 2. Try this code. Change the Range("B2") to your start row.

Sub Test()
Range("B2").CurrentRegion.Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[tyrese213]

Jindon and Dylan... you are both legends..

thankyou sooooo much

 

[jindon]

Don't select/activate

Sub test()
Range("b2").CurrentRegion.Sort key1:=Range("b2"), order1:=xlAscending, header:=xlGuess
End Sub

 

[Dylan]

Thanks Jindon, you really a good teacher.

Don't select/activate

Sub test()
Range("b2").CurrentRegion.Sort key1:=ws.Range("b2"), order1:=xlAscending, header:=xlGuess
End Sub

 

[ExcelKnut]

jindon,

Thanks for taking the time to share your knowledge. I really appreciate being able to find answers here so quickly.

Jeff

 

[keshavm1]

Hi,

I have 14 columns named part_1, part_2 upto part_14. There are nearly 800 rows in the sheet. I want to arrange the data of all the rows in ascending(alphabetic) order. For eg. if for row 1 part_1 = a, part_2 =c, part_3 = b and for row 2 part_1 = x, part_2 =z, part_3 = y.

Then, the output should be:
for row 1 part_1 = a, part_2 =b, part_3 = c and for row 2 part_1 = x, part_2 =y, part_3 = z.

Can anyone help me?