Ocultar e Reexibir Linhas

2024 - VBA & Macros

Post Recente por Vkt 6 anos atrás

4 Posts

3 Usuários

0 Reactions

1,151 Visualizações

RSS

Vkt

(@vkt)

Posts: 33

Eminent 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: 732

Honorable 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

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 15/08/2018 6:05 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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).

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 16/08/2018 5:57 am