sorting rows

[montecarlo2012]

Hello, everyone. I have a list of NUMBERS B893:G1922 I want to sorting in ascending order from left to right. I already try the ribbon buttoms, and change one row and when I try the next row, the first change again. please any hand on this welcome. executable file would be appreciate.

 

[Mike7952]

Hello from Lake Wales FL,

Can you explain a little bit more? Give some for mat of where your numbers start? What row? What column?

 

[montecarlo2012]

hello from Orlando FL, well my NUMB3RS start at B1:G1922 in other words the first row is B1 C1 D1 E1 F1 G1 I think you must know when you say B1:G1922 asume is a sets of 6 number in every row they star column b and finish column g but take it as a row .

 

[Mike7952]

Here's a macro that will do what you want.

Sub abcd()
 Dim Ptr As Long
 Dim TempSort As Long
 Dim NoExchanges As Integer
 ' Loop until no more "exchanges" are made.
For Ptr = 1 To 1922
    a = Range("B" & Ptr & ":G" & Ptr)
    Do
       NoExchanges = True
       ' Loop through each element in the array.
       For i = 1 To UBound(a, 2) - 1
           ' If the element is greater than the element
           ' following it, exchange the two elements.
           If a(1, i) > a(1, i + 1) Then
               NoExchanges = False
               TempSort = a(1, i)
               a(1, i) = a(1, i + 1)
               a(1, i + 1) = TempSort
            End If
        Next i
    Loop While Not (NoExchanges)
    Range("b" & Ptr).Resize(, UBound(a, 2)) = a
 Next Ptr
End Sub