LISTBOX LISTA ABAS E IGNORA OCULTAS

 Tópico anterior Próximo tópico Novo tópico

LISTBOX LISTA ABAS E IGNORA OCULTAS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#444754 - 24/02/2015 16:35:36

PABLOMOREIRAGV
GOVERNADOR VALADARES
Cadast. em:Julho/2010


 Anexos estao visíveis somente para usuários registrados

Ol pessoal,

               Estou postando um modelo de planilha que tem um Listbox que lista todas as abas existentes em uma planilha. Porm, ela lista tambm as abas que esto ocultas na workbook e eu queria que a lista ignorasse a ocultas e mostrasse somente as visveis.
                Algum pode me ajudar? Desde j agradeo.

OBS: Como teste a aba Plan4 est oculta, notem que ela tambm lista no listbox.

Obrigado.

Pablo Moreira

Resposta escolhida #444762 - 24/02/2015 20:30:48

FILMAN
PRESIDENTE PRUDENTE
Cadast. em:Março/2010


No Initialize coloque um IF dentro do FOR

        If Sheets(intPlanilha).Visible = -1 Then
            lstPlanilhas.AddItem Sheets(intPlanilha).Name
        End If


  
  
Instruir-te-ei, e ensinar-te-ei o caminho que deves seguir; guiar-te-ei com os meus olhos. (Salmos 32:8)

www.cursoexcelvba.com.br


#444766 - 25/02/2015 07:23:13

PABLOMOREIRAGV
GOVERNADOR VALADARES
Cadast. em:Julho/2010


Muito obrigado FILMAN, resolveu o meu problema aqui.

Valeu, abs...

Pablo Moreira

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PABLOMOREIRAGV em 25/02/2015 07:24:38