Sort row based on one column

[Brutusar]

Hi, I need to filter a range based on the date in column A. I am using the below code for that, but it is not working 100%. In short, I want to filter either ascending or descending, and the complete row need to be moved in the correct order ( Col A-H )

Does anybody have an idea on how to improve the code?

Sub Sort()

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Sort key1:=Range("A1", Range("A1").End(xlDown)), _

order1:=xlAscending, Header:=xlNo

End Sub

 

[jasonb75]

Have you tried using the macro recorder while doing it manually?

Do you want to Filter, Sort or do both, and do you want to do this top to bottom or left to right? Your post could be interpreted in one of many ways, a little clarity wouldn't go amiss.

 

[Fluff]

Maybe

Sub Brutusar()
   Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, , , , , , xlNo
End Sub

 

[Brutusar]

Have you tried using the macro recorder while doing it manually?

Do you want to Filter, Sort or do both, and do you want to do this top to bottom or left to right? Your post could be interpreted in one of many ways, a little clarity wouldn't go amiss.

Hi, is some clarification ( I hope)

- column A will always have dates (dd/mm/yyyy)
- column D-H will always have text

- when data is pasted into the Excel sheet it is always unordered by data
- I need to order the rows in either ascending or defending dependent of the situation where the code is used
- when the dates in column A is being sorted, all the other columns in the rows need to be moved in the same order as the date in column A. So if for there are 10 rows, and the earliest date is in for example A5, the range A5 to H5 need to be moved to A1-H5. Same principle for the other rows.

 

[Brutusar]

Maybe

Sub Brutusar()
   Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, , , , , , xlNo
End Sub

That simple, and works perfectly...... Thank you very much!

 

[Fluff]

Glad we could help & thanks for the feedback