Macro que ordena todas as worksheets de um workbook
Sub jjOrdenarFolhas() Dim t AsInteger, i AsInteger, c AsInteger Application.ScreenUpdating = False t = Sheets.Count If t = 1ThenExitSub For i = 1To t - 1 For c = i + 1To t If Sheets(c).Name < Sheets(i).Name Then _ Sheets(c).Move Before:=Sheets(i) Next c Next i Application.ScreenUpdating = True EndSub
Uma macro que altera o texto seleccionado para maiúsculas, minúsculas ou a 1ª letra de cada palavra em maiúsculas alternado entre estes formatos. Para a execução da macro pode ser criado uma tecla de atalho ou ligá-la a um botão de uma das barras de ferramentas.
Sub Alternar_Maiusc_Minusc_1Maiusc() Dim celula As Range 'em todas as celulas dentro da selecção ForEach celula In Selection 'variavel a comparar SelectCase celula 'comparando se está com letra minuscula Case LCase(celula) 'converte para maiusculas celula = UCase(celula) 'comparando se está com letra maiuscula Case UCase(celula) 'converte para a 1º letra de cada palavra em maiuscula celula = Application.WorksheetFunction.Proper(celula.Text) 'outro caso que não se incluia nos dois primeiro CaseElse 'converte para minusculas celula = LCase(celula.Text) EndSelect Next EndSub