Excel ocultar e reexibir linhas em determinado intervalo

[Jmbs]

Boa noite,

 

Estou com duas dificuldade em relação a planilha anexa, gostaria se possivel contar com a ajuda dos amigos.

1 - Não aplanilha 5 não consigo ocultar os valores conforme o critério;

2 - Gostaria de juntar as 3 variaveis em um modulo só...

 

 

Att

Ocultar reexibir.zip

[Visitante]

11 horas atrás, Jmbs disse:

1 - Não aplanilha 5 não consigo ocultar os valores conforme o critério;

Experimente os dois códigos abaixo no lugar dos atuais.

 

2 - Gostaria de juntar as 3 variaveis em um modulo só...

O que seriam essas "3 variáveis" ?

 

 

Sub OcultarLinha()
 Dim Linha As Long, LinhaFinal As Long
  LinhaFinal = Cells(Rows.Count, 2).End(3).Row
  Application.ScreenUpdating = False
  For Linha = 2 To LinhaFinal
   Rows(Linha).EntireRow.Hidden = Range("B" & Linha) = "Vencida"
  Next Linha
End Sub

 

Sub LinhaReexibir()
 Rows.Hidden = False
End Sub

 

obs. antes de testar remova o espaço existente no final da palavra "Vencida" em todas as células

[Jmbs]

@osvaldomp

 

Muito obrigado, dificuldade 1 resolvida.

Com relação a 2 dificuldade, não me expressei corretamente. Digo, as três planilhas vou utilizar macro com a mesma função, ocultar e reexibir linhas, porém em intervalos diferente. Ao invés de abrir três macro separadas posso ter só uma macro ?

 

Att

[Visitante]

Veja se ajuda.

Esta solução utiliza um botão em cada planilha e um código único. Siga a sequência abaixo.

 

1. instale uma cópia do código abaixo em um módulo comum, por exemplo no Módulo1

2. insira em qualquer das planilhas, por exemplo na Planilha4, um botão Controles de Formulário (não ActiveX, como os atuais)

3. vincule o botão inserido à macro OcultaReexibeLinhas (referente ao código abaixo)

4. clique com o direito sobre o botão / Copiar / cole uma cópia dele na Planilha5 e cole outra cópia na Planilha6

 

obs. não é necessário alterar manualmente o rótulo do botão, pois o código irá alterar após o primeiro clique

 

Sub OcultaReexibeLinhas()
 Dim linha As Long
  Application.ScreenUpdating = False
  Rows.Hidden = False
  If ActiveSheet.Buttons(Application.Caller).Caption = "REEXIBIR LINHAS" Then
   ActiveSheet.Buttons(Application.Caller).Caption = "OCULTAR LINHAS"
   Exit Sub
  Else
   If ActiveSheet.Name = "Planilha4" Then
    For linha = 2 To Cells(Rows.Count, 1).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 1) = 0
    Next linha
   ElseIf ActiveSheet.Name = "Planilha5" Then
    For linha = 2 To Cells(Rows.Count, 2).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 2) = "Vencida"
    Next linha
   ElseIf ActiveSheet.Name = "Planilha6" Then
    For linha = 2 To Cells(Rows.Count, 3).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 3) = 0
    Next linha
   End If
  End If
  ActiveSheet.Buttons(Application.Caller).Caption = "REEXIBIR LINHAS"
End Sub

 

[Jmbs]

1 hora atrás, osvaldomp disse:

Veja se ajuda.

Esta solução utiliza um botão em cada planilha e um código único. Siga a sequência abaixo.

 

1. instale uma cópia do código abaixo em um módulo comum, por exemplo no Módulo1

2. insira em qualquer das planilhas, por exemplo na Planilha4, um botão Controles de Formulário (não ActiveX, como os atuais)

3. vincule o botão inserido à macro OcultaReexibeLinhas (referente ao código abaixo)

4. clique com o direito sobre o botão / Copiar / cole uma cópia dele na Planilha5 e cole outra cópia na Planilha6

 

obs. não é necessário alterar manualmente o rótulo do botão, pois o código irá alterar após o primeiro clique

 

Sub OcultaReexibeLinhas()
 Dim linha As Long
  Application.ScreenUpdating = False
  Rows.Hidden = False
  If ActiveSheet.Buttons(Application.Caller).Caption = "REEXIBIR LINHAS" Then
   ActiveSheet.Buttons(Application.Caller).Caption = "OCULTAR LINHAS"
   Exit Sub
  Else
   If ActiveSheet.Name = "Planilha4" Then
    For linha = 2 To Cells(Rows.Count, 1).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 1) = 0
    Next linha
   ElseIf ActiveSheet.Name = "Planilha5" Then
    For linha = 2 To Cells(Rows.Count, 2).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 2) = "Vencida"
    Next linha
   ElseIf ActiveSheet.Name = "Planilha6" Then
    For linha = 2 To Cells(Rows.Count, 3).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 3) = 0
    Next linha
   End If
  End If
  ActiveSheet.Buttons(Application.Caller).Caption = "REEXIBIR LINHAS"
End Sub

 

@osvaldomp

 

Muito obrigado.

Exatamente isso que eu buscava, porém, não sabia aplicar, mais com a sua didática ficou fácil.

 

A titulo de aprendizado, gostaria que você me explicasse qual a função e vinculo desse 3.

 

Att

[Visitante]

No seu arquivo do post #1, no Módulo1, na sub OcultarLinha você colocou este comando ~~~> Range("B28").End(xlUp).Row

que também pode ser escrito assim ~~~> Range("B28").End(3).Row

 

Em lugar de xlToLeft, xlToRight, xlUp e xlDown você pode utilizar respectivamente os números 1, 2, 3 e 4.

[Jmbs]

18 minutos atrás, osvaldomp disse:

No seu arquivo do post #1, no Módulo1, na sub OcultarLinha você colocou este comando ~~~> Range("B28").End(xlUp).Row

que também pode ser escrito assim ~~~> Range("B28").End(3).Row

 

Em lugar de xlToLeft, xlToRight, xlUp e xlDown você pode utilizar respectivamente os números 1, 2, 3 e 4.

@osvaldomp

 

Meus sinceros agradecimentos pela gama de esclarescimentos.

 

Att

[Patropi]

@Jmbs

 

Para não poluir o fórum, não use citação sem necessidade.

Para responder use a janela de resposta que fica logo abaixo da última postagem.

 

[]s