sort entire row based on formula result in Column D

[melody10]

i need help...

can somebody give me a code that with a click of a button all data will be sorted based on formula results in column D.

i have a number of columns with different data... in column D, i put a formula that will result in either "1 Expired", "2 Critical", "3 High", "4 Medium" or "5 Low". What I am thinking is that when I click the button, the entire row will be sorted based on the results n clumn D. So all those with "1 Expired" will be at the top of the row.. while those with "5 Low" will be at the bottom.

My data starts at row 5 and the number of rows varies. I tried using the custom sort but I have no luck.

can somebody point me at the right direction.

[noboffinme]

Hi Melody10,

Here's some code to sort the Row for Column 'D' from Row 5.

Sub sort_entirerow()

Sheets("SheetName").Select
Cells.Range("A5:AL2000").Select  ' Enter your Range here
    ActiveWorkbook.Worksheets("SheetName").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SheetName").Sort.SortFields.Add Key:=Range("D5:D2000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal        'Set to Sort on Column 'D' FROM 'D5' down to 'A2000'
    With ActiveWorkbook.Worksheets("SheetName").Sort
        .SetRange Range("A5:AL2000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Hth