How to sort worksheets based on the range

[ThrottleWorks]

Hi,

I have one excel file with multiple worksheets. For example, file name is 'Auto' and number of worksheets are 5. This number can be 5, 15 or 50.

Original name and order of the worksheets is as below.

Yamaha
Audi
BMW
KTM
Porsche

I have another excel file, in 'Sheet1' range ("A1:A5"), I have values as below.
Porsche
Audi
KTM
Yamaha
BMW

How do I arrange worksheets in file 'Auto' as per 'Sheet1' range ("A1:A5").
Can anyone please help me in this.

Apologies for not uploading sample file.

 

[Marc L]

Hi !

In worksheet to sort, use an additional column with a MATCH formula
to have the order # then sort the range upon this column …
​

 

[ThrottleWorks]

Hi @Marc L sir, thanks a lot for the help.

PS - Wishing all the best for match against Peru.

 

[Marc L]

Thanks ‼ ​

 

[ThrottleWorks]

Hi,

Found solution on below link. Thanks.

https://stackoverflow.com/questions...-a-list-of-names-which-are-the-selected-cells

 

[Marc L]

Sorry, I've a bit misread your initial post !
The reason why it's far better with an attachment.

So the easy way is a loop on range to reorder worksheets …
​

 

[ThrottleWorks]

No issues @Marc L sir, we are not allowed to upload from office. Hence post without attachment.

Have a nice day ahead.

 

[Marc L]

As it depends where the procedure is located but something like​

Sub Demo1()
        Dim V, R%
            V = Range("Sheet1!A1:A4").Value
    With Workbooks("Auto").Worksheets
        For R = 1 To 4
          .Item(V(R)).Move .Item(R)
        Next
    End With
End Sub

 

[ThrottleWorks]

Thanks for the help @Marc L sir. I am trying this and will revert with details.