Sort Multiple Worksheets with identical layout

[annazet]

Hello everyone,
almost done with my baby tool for my Staff.
Need your help my masters.

I have an array of worksheets

Please Login or Register  to view this content.

I tried recording a macro but it got messy.
I need to sort all the sheets the same way

Range B7:Q90,B95:Q120
Each needs to be sorted as follows:
"B7:B90,B95:B120" Ascending
then
"C7:C90,C95:C120" Ascending

each range has a header, i mean 7:95 & 95:120.
I just need the cells in B7:Q90 and B95:Q95 to be affected, rest to stay intact.

Is that doable? Can you please help?

[TMS]

Should be doable. Suggest you post a sample workbook with some typical, non-sensitive data. Ideally, mock up the expected results for one of the sheets.

[mgs73]

Try this:

Please Login or Register  to view this content.

[mgs73]

Another option, which could be helpful if you later add more weeks is to apply the sort based on their tab colour (i.e. sheets that have tabs that are dark red (.Color = 354999) or are not coloured (.ColorIndex = -4142).

Please Login or Register  to view this content.

[annazet]

Thak you! It does work! But... I realized i do need the range to be in columns B to Q.
How do I apply the above so that all rows between B7:Q90 and B95:Q120 are sorted ?

SetRange("B7:Q90") etc?

[mgs73]

The first pair of sorts does only column B in ascending order. The second does only column C in descending order. To sort them together, one may have to contradict the other, never mind columns D, E, F, ...Q.

I'm only guessing, but this might be what you're after:

Please Login or Register  to view this content.

[annazet]

Thank you so much! managed to figure that bit out. Happy thanks to you I've learned something new. Thanks again!

[TMS]

Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.