Macro to sort ranges in column

[mikey1987]

Hello all, I'm looking for a macro to sort ranges based on a recurring word in column W. In column W I have a word ("Wave 4") and every time I see that word, I want to sort the range based on the values in column W from big to small. And then it has to look for the next Wave 4 word and do it all over again. Allow me to visualise below. You see that"Wave 4" is in cell W6, W19 and W 32. So I want to sort range T6 to W13 based on the values in column W (already done here). Then I want the macro to look at the next "Wave 4" and do the same again. Is this possible?

This would be a tremendous help, thanks in advance.

 

[mikey1987]

Hello,

This gives the following error: Run-time error '1004':
The sort reference is not valid. Make sure that it's within the data you want to sort, and the first Sort By Box isn't the same or blank.
Does it have something to do with the fact that S1 is blank?

Regards

 

[MickG]

Try your Data in this Example:-
The problem could be that data in column "S" does not relate to a range of data in columns "T to W".
If that does not work , Perhaps you could post and example file or show more datails.
https://app.box.com/s/ajkcfblu4fhx5moiva5f

You can post data using "app.box.com"
Regrds Mick

 

[mikey1987]

Ow, sure, this is how my data looks like:
https://app.box.com/files/0/f/0/1/f_12269004208

The data in column S are in fact the companies' name, while T to W is some of our information about them (this shouldn't have impact on the sorting though, it works fine when I manually do sort - expand sorting).

 

[MickG]

I'm sorry ,but I am not able to download your file from that link. The download page does not show from that link.!!!!

 

[mikey1987]

I think I found it
I changed

Dn.Offset(, -3).Resize(, 4) to Dn.Offset(, -4).Resize(, 5) and now it works :D
No idea what I did, but it does the trick :P

Thanks so much MickG
</pre>