Shark Tip - VBA Excel | Classificar Planilhas - Sort Worksheets

Este código irá ajudá-lo a classificar as planilhas em sua pasta de trabalho de acordo com seu nome.

 Série Donut Project 

  

Sub SortWorksheets()

Dim i As Integer

Dim j As Integer

Dim iAnswer As VbMsgBoxResult

Let iAnswer = MsgBox ("Ordenar as Planilhas em Ordem Ascendente?" & Chr(10) _

& "Clique Não para Ordem Descendente", _

vbYesNoCancel + vbQuestion + vbDefaultButton1, ".: Ordenar Planilhas")

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If iAnswer = vbYes Then

If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then

Sheets(j).Move After:=Sheets(j + 1)

End If

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

 

  PUDIM PROJECT 

  

  

  

 

 Série de artigos: PUDIM PROJECT Pyhton 

  

 

Conheça também:

 

Veja outros códigos:

  

 

 

 

 Série de Livros nut Project 

  

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com