Sort selected rows

14spar15 · #1 05-25-2023, 02:21 PM

Hello, I select consecutive rows on a sheet and run this code to sort A>Z for those selected rows but it only works correctly with 4 rows. I want to be able to select more or in some cases fewer than 4 rows to be sorted. The selected rows will always start as consecutive rows on the sheet. Thanks

Code:

Sub Sort()

    ActiveWorkbook.Worksheets("EnterSheet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EnterSheet").Sort.SortFields.Add Key:=ActiveCell. _
        Offset(0, 5).Range("A1:A4"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("EnterSheet").Sort
        .SetRange ActiveCell.Range("A1:AK4")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

I have added a sample attachment.It seems the range needs to be changed.

p45cal · #2 05-26-2023, 08:57 AM

try:

Code:

Sub Sort2()
Set SortRng = Intersect(Selection.EntireRow, Columns("A:AK"))
If Not SortRng Is Nothing Then SortRng.Sort Columns("F"), xlAscending, Header:=xlNo
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy and Paste certain columns from selected rows.	14spar15	Excel Programming	2	05-18-2023 07:57 AM
Collapse Rows When NOT Selected	sheridan60	Excel	1	11-30-2022 01:23 AM
Set Range based on selected rows.	14spar15	Excel Programming	8	11-19-2018 08:08 AM
Selecting values from different rows in a table and sort them in order in a single row	FromF	Excel	2	09-09-2014 02:30 AM
Trying to autofilter 8-10 rows of numbers to sort in a group	Jack-P-Winner	Excel	0	11-25-2013 10:55 PM