none
Excel Macro Ordem Alfabética RRS feed

  • Pergunta

  • Gostaria de saber de uma forma bem simples como eu defino uma aba de um arquivo do Excel, como uma aba inicial, para que toda vez que eu abra o arquivo ela seja a aba que é mostrada e que também sempre esteja com as planilhas em ordem alfabética.
    segunda-feira, 27 de março de 2017 19:55

Todas as Respostas

  • Cole o código abaixo na classe da sua pasta de trabalho:

    Private Sub Workbook_Open()
        Dim wsIndex As Worksheet
        Dim iWorksheet As Worksheet
        
        Set wsIndex = ThisWorkbook.Worksheets("Índice")
        wsIndex.Cells.Delete
        
        Application.Goto wsIndex.Range("A1")
        For Each iWorksheet In ThisWorkbook.Worksheets
            If iWorksheet Is wsIndex Then GoTo Continue
        
            ActiveCell = iWorksheet.Name
            ActiveCell.Offset(1).Select
    Continue:
        Next iWorksheet
        
        wsIndex.Columns("A").Sort Key1:=wsIndex.Range("A1"), Order1:=xlAscending, Header:=xlNo
        Application.Goto wsIndex.Range("A1")
    End Sub
    

    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    quarta-feira, 29 de março de 2017 01:08
    Moderador