Sort in descending order

[natalie123vba]

Hi All, I am trying to sort a column in descending order using the If..then..else method. it worked for me in ascending order but I cant get it to work in descending. any help here would be appreciated. this is the code i used for ascending:

Sub sort_numbersUP()

Dim Sorted As Boolean

Sheets("Sheet1").Range("B5:B25").Copy Destination:=Sheets("Sheet1").Range("C5")

Do
Sorted = False

For numEntries = 5 To 25 - 2

If Cells(numEntries, 3).Value > Cells(numEntries + 1, 3).Value Then
tmpvar = Cells(numEntries + 1, 3)
Cells(numEntries + 1, 3).Value = Cells(numEntries, 3)
Cells(numEntries, 3).Value = tmpvar
Sorted = True

End If

Next

Loop While Sorted

End Sub

My descending column is (F28:F57)

Thanks

 

[Flaiban]

Doesn't change much :

Sub sort_numbersUP()

Dim Sorted As Boolean

Sheets("Sheet1").Range("B5:B25").Copy Destination:=Sheets("Sheet1").Range("C5")

Do
Sorted = False

For numEntries = 5 To 25 - 2

If Cells(numEntries, 3).Value > Cells(numEntries + 1, 3).Value Then
tmpvar = Cells(numEntries + 1, 3)
Cells(numEntries + 1, 3).Value = Cells(numEntries, 3)
Cells(numEntries, 3).Value = tmpvar
Sorted = True

End If

Next

Loop While Sorted

With Range("F28:F57")
    .Sort Key1:=Range("F28"), _
    Order1:=xlDescending, _
    Header:=xlNo
End With

End Sub

 

[natalie123vba]

Doesn't change much :

Sub sort_numbersUP()

Dim Sorted As Boolean

Sheets("Sheet1").Range("B5:B25").Copy Destination:=Sheets("Sheet1").Range("C5")

Do
Sorted = False

For numEntries = 5 To 25 - 2

If Cells(numEntries, 3).Value > Cells(numEntries + 1, 3).Value Then
tmpvar = Cells(numEntries + 1, 3)
Cells(numEntries + 1, 3).Value = Cells(numEntries, 3)
Cells(numEntries, 3).Value = tmpvar
Sorted = True

End If

Next

Loop While Sorted

With Range("F28:F57")
    .Sort Key1:=Range("F28"), _
    Order1:=xlDescending, _
    Header:=xlNo
End With

End Sub

But is there a way of using the same code but changing it to descending? i would have thought that by changing > to < it would work, but no such luck

 

[Flaiban]

I remade it in a simplest way :

Sub sort_numbersUP()

  Dim MyRange1 As Range
  Dim MyRange2 As Range
  
  Sheets("Plan1").Range("B5:B25").Copy Destination:=Sheets("Plan1").Range("C5")

  Set MyRange1 = Sheets("Plan1").Range("C5:C25")

  With MyRange1
    .Sort Key1:=.Columns(1), Order1:=xlDescending, Header:=xlNo
  End With
  
  Set MyRange2 = Sheets("Plan1").Range("F28:F57")
  
    With MyRange2
    .Sort Key1:=.Columns(1), Order1:=xlDescending, Header:=xlNo
  End With

End Sub