Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Deixar Visível some...
 
Notifications
Clear all

Deixar Visível somente Plan3 e Plan4

 
2024 - VBA & Macros
Post Recente por Miguel 70 10 anos atrás
5 Posts
2 Usuários
0 Reactions
715 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Óla boa tarde!
Minha pasta de trabalho Excel tem várias abas e aumentam mensalmente.
Gostaria de uma código vb que fisese um loop, E deixasse a Plan3 e Plan4 Visible=True, e ocultasse todas as outras planilhas.

Sub ocultar_Planilha()
Plan3.Visible = True 'essa visível
Plan4.Visible = True 'essa visível
For I = 2 To Sheets.Count 'conta as demais e oculta todas
Sheets(I).Visible = False
Next I
End Sub

Este código não funciona, somente um modelo para melhor compreensão do que preciso.
Obrigado.

 
Postado : 04/07/2014 1:22 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Tenta assim (não testado)

Sub ocultar_Planilha()
Sheets("Plan3").Visible = True 'essa visível
Sheets("Plan4").Visible = True 'essa visível
For I = 1 To Sheets.Count 'conta as demais e oculta todas
If sheet.name = "Plan3" or If sheet.name = "Plan4" then
Else
Sheets(I).Visible = False
End if
Next I
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 04/07/2014 1:30 pm
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Eu acho que falta pouco, Resultado da dando Next sem For
Sub ocultar_Planilha()
Sheets("Plan3").Visible = True 'essa visível
Sheets("Plan4").Visible = True 'essa visível
For I = 1 To Sheets.Count 'conta as demais e oculta todas
If Sheet.Name = "Plan3" Then
If Sheet.Name = "Plan4" Then
Else
Sheets(I).Visible = False
End If
Next I
End Sub

 
Postado : 04/07/2014 1:38 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Eu tinha me enganado em um linha, veja agora:

Sub ocultar_Planilha()
Sheets("Plan3").Visible = True 'essa visível
Sheets("Plan4").Visible = True 'essa visível
For I = 1 To Sheets.Count 'conta as demais e oculta todas
If Sheets(I).Name = "Plan3" Or Sheets(I).Name = "Plan4" Then
Else
Sheets(I).Visible = False
End If
Next I
End Sub

E não crie 2 IFs, ou vai continuar com o erro de "For sem Next"

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 04/07/2014 2:03 pm
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Certíssimo amigo.
A graça do criador do universo esteja sobre Ti.
Obrigado

 
Postado : 04/07/2014 2:08 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico