Views

Histats

Vitrine

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


 Podemos ordenar todas as planilhas numa seqüência alfabética,enquanto os ícones por worksheet não vem.
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

André Luiz Bernardes
A&A® - Work smart, not hard.
Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...