Excel - řazení listů dle abecedy

Zdroj support.microsoft.com/...

Otevri si pozadovany Excel.

Pravym tlacitkem klikni na zalozku listu (Sheet1,...) nebo jak se to u tebe jmenuje a v kontextovem menu vyber View Code (pokud mas cestinu, tak to bude nejaky cesky ekvivalent).

Do okna, ktere se otevre, vloz sekvenci uvedenou na konci tohoto prispevku, pak File - Close & Return to...

Pro serazeni jdi do menu Nastroje nebo v novych Officech do zalozky View - Makra - spustit Makro

Vyber nahrane Makro (zrejme budes mit pouze jedno) a spust ho.

Zepta se te to, zda se ma radit vzestupne ci sestupne a je hotovo.

Nyni ta slibena sekvence:

Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
 iAnswer = MsgBox("Sort Sheets in Ascending Order?"& Chr(10) _
 & "Clicking No will sort in Descending Order", _
 vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
 For i = 1 To Sheets.Count
 For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
 If iAnswer = vbYes Then
 If UCase$(Sheets(j).Name)> UCase$(Sheets(j + 1).Name) Then
 Sheets(j).Move After:=Sheets(j + 1)
 End If
'
' If the answer is No, then sort in descending order.
'
 ElseIf iAnswer = vbNo Then
 If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
 Sheets(j).Move After:=Sheets(j + 1)
 End If
 End If
 Next j
 Next i
End Sub

Listy v Excelu jsou řazeny dle "abecedy"... List 1 - List X (číslovky jsou řazeny vzestupně).

Pokud jste si však listy pojmenovala podle sebe a chcete je seřadit, tak je to věc jiná... nevím, jestli existuje příkaz, který to udělá, nicméně lze listy seřadit ručně - stisknutím a držením levého myšítka na název listu a následně jeho tažením vlevo či vpravo můžete listy přeházet dle vlastního uvážení.

Děkuji mockrát, fakt paráda. Řazení funguje na 100%