OS MELHORES VÍDEOS

 

Pesquisar

sábado, 25 de janeiro de 2014

Como: classificar planilhas ordem alfanumérica.

O exemplo a seguir mostra como classificar as planilhas em uma pasta de trabalho com base em ordem alfanumérica no nome da planilha usando a propriedade.







Crie um módulo e inserir o seguinte código.

Sub SortSheetsTabName()
    Application.ScreenUpdating = False
    Dim iSheets%, i%, j%
    iSheets = Sheets.Count
    For i = 1 To iSheets - 1
        For j = i + 1 To iSheets
            If Sheets(j).Name < Sheets(i).Name Then
                Sheets(j).Move before:=Sheets(i)
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub



Nenhum comentário:

Postar um comentário