Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ocultar e Reexibir ...
 
Notifications
Clear all

Ocultar e Reexibir Linhas

 
2024 - VBA & Macros
Post Recente por Vkt 6 anos atrás
4 Posts
3 Usuários
0 Reactions
1,134 Visualizações
RSS
 Vkt
(@vkt)
Posts: 0
New Member
Topic starter
 

Boa noite,

Tenho as linhas de 2 a 109. Da linha 2 a 55 é a página 1. Da 56 a 109 a página 2. A página 2 está oculta por padrão e deve ser usada quando a 1 estiver toda preenchida. Preciso de 2 botões/macros: O primeiro oculta a página 1 e reexibe a página 2 e o segundo oculta a página 2 e reexibe a página 1.

Estou tentando usar a macro abaixo com algumas variantes, mas o resultado não é satisfatório.

Sub PÁG1()

If Rows("xx:xx").EntireRow.Hidden = True Then
Rows("xx:xx").EntireRow.Hidden = True
ElseIf Rows("xx:xx").EntireRow.Hidden = False Then
Rows("xx:xx").EntireRow.Hidden = True
End If
End Sub

Agradecido pela ajuda!

 
Postado : 14/08/2018 9:11 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Bom dia, segue conforme pedido:

Public pagina1, pagina2 As Range
Sub ocultar_Pg1()
Set pagina1 = Range("2:55"): Set pagina2 = Range("56:109")
pagina1.EntireRow.Hidden = True: pagina2.EntireRow.Hidden = False
End Sub

Sub ocultar_Pg2()
Set pagina1 = Range("2:55"): Set pagina2 = Range("56:109")
pagina1.EntireRow.Hidden = False: pagina2.EntireRow.Hidden = True
End Sub
 
Postado : 15/08/2018 6:05 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Vkt,

Bom dia!

Solicitamos, por gentileza, ao postar código VBA, utilizar a ferramenta CODE existente logo no início da caixa de mensagens (quinto botão da esquerda para a direita).

 
Postado : 16/08/2018 5:57 am
 Vkt
(@vkt)
Posts: 0
New Member
Topic starter
 

xlarruda, obrigado. Funcionou perfeitamente.

wagner, entendido!

 
Postado : 18/08/2018 8:37 am
Forum Jump:
  Tópico Anterior
Próximo Tópico