Notifications
Clear all

Loop em abas excel 2007

7 Posts
2 Usuários
0 Reactions
1,331 Visualizações
(@hamorim)
Posts: 0
New Member
Topic starter
 

Encontrei um código que faz loop nas abas da planilha, coloquei em meu documento funcionou, agora eu gostaria de implementar, fazendo que ela desconsiderasse o tempo das planilhas ocultas.

exemplo no documento tem 8 abas, só que eu quero que ela apresente as 4 primeiras, quando eu oculto as demais, a ultima fica o tempo somado das demais ocultas. como posso fazer?

 
Postado : 29/08/2017 2:00 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

hamorim,

Melhor você anexar aqui mesmo no fórum seu arquivo, compactado com . ZIP.

 
Postado : 29/08/2017 3:51 pm
(@hamorim)
Posts: 0
New Member
Topic starter
 

Segue modelo

 
Postado : 29/08/2017 5:11 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

hamorim,

Bom dia!

Veja que na célula H1 de cada uma das planilhas visíveis eu coloquei para que o VBA insira a hora em que ele ativou a aba (apenas para que se possa saber os minutos exatos de quando ele passa de uma para a outra aba). Ele agora não conta mais as abas que estão ocultas, independente da qUANTIDADE DE ABAS EXISTENTES.

Veja se é assim.

 
Postado : 30/08/2017 5:19 am
(@hamorim)
Posts: 0
New Member
Topic starter
 

Show!! é isso mesmo, so que tem um detalhe, se eu inserir uma nova planilha ou se exibir uma que estar oculta, no código que ta não coloca ela para aparecer.

Exemplo, eu reexibir as que estavam ocultas mais ela so ficou passando da 1 a 3

 
Postado : 30/08/2017 5:32 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Isso mesmo. Veja que no evento Workbook_Open do arquivo (que é disparado assim que o arquivo é carregado) eu conto quantas abas estão visíveis e armazeno o número na variável Qtde que é repassada para a rotina que faz o loop e muda de aba a cada 10 segundos.

Se você insere uma nova aba ou reexibe uma que estava oculta, você deverá reexecutar a rotina que está no evento Workbook_Open para que Qtde reflita a nova quantidade de abas visíveis.

 
Postado : 30/08/2017 6:01 am
(@hamorim)
Posts: 0
New Member
Topic starter
 

Era isso, Obrigado!!,

 
Postado : 30/08/2017 11:42 am