Macro for horizontal sorting of "selected cells"

[daw60]

Would like to be able to select cells horizontally and be able to sort only those cells selected. Would work just like the sort A-Z(↓) button except it works Left to Right. I would then just create a button and attach the macro to it.

Thanks for any help.

<tbody>
</tbody>

 

[tonyyy]

daw60,

Would like to be able to select cells horizontally and be able to sort only those cells selected.

You might consider the following...

Sub HorizontallySortArray_1017900()
''''Sorts a single row, left to right
''''Do not select an entire row

Dim arr As Variant
Dim rng As Range
Dim x As Long, y As Long
Dim Txt1 As String, Txt2 As String

Set rng = Selection
arr = rng
For x = LBound(arr, 2) To UBound(arr, 2)
    For y = x To UBound(arr, 2)
        If UCase(arr(1, y)) < UCase(arr(1, x)) Then
          Txt1 = arr(1, x)
          Txt2 = arr(1, y)
          arr(1, x) = Txt2
          arr(1, y) = Txt1
      End If
     Next y
Next x
rng.Value = arr
End Sub

Cheers,

tonyyy

 

[footoo]

Why not use Excel's built-in sort tool (which can cover more than one row selection and allows entire row selection)?
The code can be obtained via the macro recorder and tweaked to change the hard-coded ranges to Selection.

 

[Akuini]

Maybe this:

---

Please use Code Tags when posting a code. Like this: [CODE ]Your Code Here[/ CODE]

[B][COLOR=Royalblue]Sub[/COLOR][/B] a1017900a[B]()[/B]
      [B][COLOR=Royalblue]With[/COLOR][/B] Selection
          [B].[/B]Sort Key1[B]:=.[/B]Cells[B]([/B][B][B][COLOR=crimson]1[/COLOR][/B][/B][B]),[/B] Order1[B]:=[/B]xlAscending[B],[/B] Orientation[B]:=[/B]xlLeftToRight[B],[/B] Header[B]:=[/B]xlNo[B],[/B] MatchCase[B]:=[/B][B][COLOR=Royalblue]False[/COLOR][/B]
      [B][COLOR=Royalblue]End[/COLOR][/B] [B][COLOR=Royalblue]With[/COLOR][/B]
 
[B][COLOR=Royalblue]End[/COLOR][/B] [B][COLOR=Royalblue]Sub[/COLOR][/B]

---

 

[daw60]

Maybe this:

---

Please use Code Tags when posting a code. Like this: [CODE ]Your Code Here[/ CODE]

[B][COLOR=Royalblue]Sub[/COLOR][/B] a1017900a[B]()[/B]
      [B][COLOR=Royalblue]With[/COLOR][/B] Selection
          [B].[/B]Sort Key1[B]:=.[/B]Cells[B]([/B][B][B][COLOR=crimson]1[/COLOR][/B][/B][B]),[/B] Order1[B]:=[/B]xlAscending[B],[/B] Orientation[B]:=[/B]xlLeftToRight[B],[/B] Header[B]:=[/B]xlNo[B],[/B] MatchCase[B]:=[/B][B][COLOR=Royalblue]False[/COLOR][/B]
      [B][COLOR=Royalblue]End[/COLOR][/B] [B][COLOR=Royalblue]With[/COLOR][/B]
 
[B][COLOR=Royalblue]End[/COLOR][/B] [B][COLOR=Royalblue]Sub[/COLOR][/B]

---

[Very simple and Works perfectly...Thank you for helping]

 

[Akuini]

You're welcome & thanks for replying