Ordinare fogli di una cartella dilavoro in ordine alfabetico

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
19.616
133
Como
2011MAC 2016WIN
399
Una Sub che posiziona i fogli in ordine alfabetico

Visual Basic:
Sub Fogli_Ordine_Alfabetico()
    Application.ScreenUpdating = False
    Dim i As Integer, j As Integer
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
                Sheets(j).Move before:=Sheets(i)
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub
 

Powerwin

VBA Expert
Expert
17 Marzo 2016
4.144
63
vicino a Milano
2019
73
Visual Basic:
Sub OrdinaFogli()
Dim xResult As VbMsgBoxResult
xResult = MsgBox("Ordino i fogli in ordine Ascendente?" & Chr(10) & "Premi No se vuoi ordinarli in modo Discendente", vbYesNoCancel + vbQuestion + vbDefaultButton1)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!