- 06 Out 2018 às 10:50
#37539
Bom dia pessoal!
Tenho uma grande quantidade de planilhas e preciso exibi-las de uma forma mais otimizada.
Pensei em, por exemplo, uma seleção alfabética, todas que começam com a letra "A", ocultando as demais, depois todas com a letra B, também ocultando as demais, e assim por diante.
Pensei o código dessa forma, mas se houver outra mais inteligente, blz!
Tenho uma grande quantidade de planilhas e preciso exibi-las de uma forma mais otimizada.
Pensei em, por exemplo, uma seleção alfabética, todas que começam com a letra "A", ocultando as demais, depois todas com a letra B, também ocultando as demais, e assim por diante.
Pensei o código dessa forma, mas se houver outra mais inteligente, blz!
Código: Selecionar todos
Sub selecionarAlfabeticamente()
Dim j As Worksheet
For Each j In ActiveWorkbook.Worksheets
'Essa linha de código não sei construir ...
j.Visible = xlSheetHiddem
Next j
' Após o laço for, exibe-se somente as que precisam ser trabalhadas.
Worksheets("ESCOLHA").Activate
Worksheets("A.....").Select.Visible = True
Worksheets("A.....").Select.Visible = True
End Sub