Ordenar Folhas Excel de forma Automatizada (Macro)
Pretende-se com esta macro Ordenar as Folhas de um livro de Excel de forma ascendente. Video que mostra como fazer: Código: Option Explicit Sub OrdenarFolhas() 'Esta rotina coloca as folhas de Excel por ordem ascendente Dim NomeFolhas() As String Dim ContarFolhas As Long Dim i As Long Dim AntigaFolhaActiva As Object 'Se não houver folha activa If ActiveWorkbook Is Nothing Then Exit Sub 'Verifica se a estrutura do livro esta protegida, se sim, não consegue ordenar e 'devolve uma mensagem ao utilizador If ActiveWorkbook.ProtectStructure Then MsgBox ActiveWorkbook.Name & " está protegida, ", vbCritical, "Não é possivel ordenar as folas. " Exit Sub End If 'Verifica se o utilizador quer mesmo fazer a ordenação If MsgBox("Pretende ordenar as folhas deste livro de Excel?", vbQuestion + vbOKCancel) <> vbOK Then Exit Sub 'Desactiva o CTRL+BREAK (opção cancelar) Application.EnableCancelKey = xlDisabl...