VBA Excel - Ordena worksheets da planilha - Sort All Sheets in a Workbook

| Blog Office VBA | Blog Excel | Blog Access | 

Podemos ordenar todas as Sheets duma seqüência alfabética.

Sub SrtShs()

Dim iSheet As Long, iBefore As Long 

For iSheet = 1 To ActiveWorkbook.Sheets.Count     

    Let Sheets(iSheet).Visible = True 

    For iBefore = 1 To iSheet - 1       

        If UCase(Sheets(iBefore).Name) & UCase(Sheets(iSheet).Name) Then  

                      ActiveWorkbook.Sheets(iSheet).Move 

          Before:=ActiveWorkbook.Sheets(iBefore)         

          Exit For       

        End If     

    Next iBefore   

Next iSheet 

End Sub

Reference:

Inspiration:

Tags: VBA, Excel, wrap, sheet, sheets, ws, insert, sort, ordena

VBA Excel - Loop por todas as worksheets

| Blog Office VBA | Blog Excel | Blog Access | 

Sim, ter a capacidade de passar por todas as planilhas do Workbook é simples, mas necessário.

Talvez precise proteger, configurar, encriptar, estabelecer privilégios ou mesmo atualizar tabelas em todas as Sheets. Essa SUB lhe permitirá isso:

  Sub SheetsWrap()

    Dim iSheet as Long

    Let Application.ScreenUpdating = False

    For iSheet = 1 To ActiveWorkbook.WorkSheets.Count

          Let WorkSheets(iSheet).cells(1,1) = "'" & WorkSheets(iSheet).name

    Next iSheet

    Let Application.ScreenUpdating = True

  End Sub

Reference:

Inspiration:

Tags: VBA, Excel, loop, laço, wrap, sheet, sheets, ws

VBA Excel - Loop por todas as worksheets

Ok, isso é o básico, mas é válido, especialmente para iniciantes.

  Sub SheetsWrap()

    Dim iSheet as Long

    Let Application.ScreenUpdating = False

    For iSheet = 1 To ActiveWorkbook.WorkSheets.Count

     Let WorkSheets(iSheet).cells(1,1) = "'" & WorkSheets(iSheet).name

    Next iSheet

    Let Application.ScreenUpdating = True

  End Sub

Tags: Excel, loop, wrap, worksheets, sheets, ws

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com