Sorting sets of rows based on cell

I will give it a shot. Here goes.

Each data set is 4 rows (Ax to Dx) and must be sorted based on cell E(3 + 4j), where j =0,1,2,3...

Thanks again!

Bump. No reply.

Again. I would think this is easy, I am just missing something.

BUMP. Still looking for help.

Woops. I am very sorry. The corresponding rows in columns A and B should move with the other columns. Please see attached. I have fixed that and added "1,2,3,4" to each cell of data to indicate that every cell in each 4-row set needs to be sorted, based on cell E(3 + 4j), where j =0,1,2,3...

Hi
i noted your cell has two parts, one is a number 1 through 4 and other alphabet A , B, C and D.
You can split them in two separate columns and sort on these columns
I think this should work.

See attached sheet

Regards

Originally Posted by Leith Ross

Hello mpkavanagh,

Thanks for the updated workbook. Will the actual data numbers start at 1?

Not neccesarily. It can start at any integer and the data may not be consecutive numbers.

Originally Posted by mahju

Hi
i noted your cell has two parts, one is a number 1 through 4 and other alphabet A , B, C and D.
You can split them in two separate columns and sort on these columns
I think this should work.

See attached sheet

Regards

Not quite. I have re-attached another example. This time I have boxed around each data set. The entire boxed set has to be sorted among the other boxed sets based on the cell I indicated previously, and each cell of data in each set has to remain in the same relative cell location within the set. The data I presented is basically meaningless (I hope) except for the cell to be sorted. The critical part is that each distinct set needs to remain as such.

Make sense? Is this even possible?

BUMP. Still looking.

Okay, using this code, I have managed to sort things using a brute force technique (I create a column and copy the cell I am using to search into the 4 rows of that column, sort using that column, then delete the column, leaving the data).

However, I need a way to select ALL the data for the SortFields code (I recorded a macro for this code), not just the range it selects. I tested it with 12 sets of data and it gave me the range A1:H395, but I need it to work for any number of sets of data. Is there a way to reference ALL values in Columns A through H?

Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    
    LastRow = Range("B65536").End(xlUp).Row

    For r = LastRow To 1 Step -1
        With Range("B" & r)
            If .Value = "PositionN" Then
            
            Range("F" & r).Select
            Selection.Copy
            Range("A" & r + 1, "A" & r - 2).Select
            ActiveSheet.Paste
                 
            End If
        End With
                  
    Next r
 
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Input").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Input").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Input").Sort
        .SetRange Range("A1:H395")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

    End With

I think I have it. I just used the range "A1:H65536" to take care of everything. I won't be needing to sort more than a few thousand rows anyways, but I wanted to be sure nothing was missed.

I still can't edit my old threads, so if a moderator could mark this as SOLVED, it would be greatly appreciated.