Página 1 de 1
Condição p/ ocultar/exibir multiplas linhas não-sequenciais
Enviado: 18 Ago 2019 às 22:52
por eduardoadm
Como faço para exibir/ocultar múltiplas linhas dependendo da condição de uma célula (D20).
Se D20 = "REGIME DE COMUNHÃO: COMUNHÃO DE BENS" então exibir linhas de 23 a 39 e ocultar as linhas de 41 a 71;
Se D20 = REGIME DE COMUNHÃO: PARCIAL DE BENS então exibir linhas de 41 a 61 e ocultar as linhas 23 a 40 e 63 a 71 e
Se D20 = REGIME DE COMUNHÃO: SEPARAÇÃO TOTAL DE BENS então exibir linhas de 63 a 71 e ocultas as linhas de 23 a 62.
Re: Condição p/ ocultar/exibir multiplas linhas não-sequenci
Enviado: 19 Ago 2019 às 04:19
por babdallas
Adapte para a sua necessidade
Código: Selecionar todosWith Planilha1
Select Case .Range("D20").Value2
Case "REGIME DE COMUNH?O: COMUNH?O DE BENS"
.Range("A23:A39").EntireRow.Hidden = False
.Range("A41:A71").EntireRow.Hidden = True
Case "REGIME DE COMUNH?O: PARCIAL DE BENS"
.Range("A41:A61").EntireRow.Hidden = False
.Range("A23:A40", "A63:A71").EntireRow.Hidden = True
Case "REGIME DE COMUNH?O: SEPARA??O TOTAL DE BENS"
.Range("A63:A71").EntireRow.Hidden = False
.Range("A23:A62").EntireRow.Hidden = True
End Select
End With
Condição p/ ocultar/exibir multiplas linhas não-sequenciais
Enviado: 19 Ago 2019 às 08:11
por eduardoadm
babdallas obrigado pela sua mensagem!
Tentei colocar o with dentro de um Private Sub Worksheet_Change(ByVal Target As Range) mas não funcionou.
Pode detalhar melhor como incluir o código na minha planilha?
Abraço!
Re: Condição p/ ocultar/exibir multiplas linhas não-sequenci
Enviado: 19 Ago 2019 às 08:58
por Jimmy
Bom dia!
O conteúdo da célula D20 da planilha "Impressão" é uma fórmula que pega dados da B5 da planilha "Entrada". Logo, não adianta testar o Change dela. Ela muda quando a B5 da planilha "Entrada" é alterada, logo, o Change deve olhar para esta última.
Segue a planilha.
Jimmy San Juan
Re: Condição p/ ocultar/exibir multiplas linhas não-sequenci
Enviado: 19 Ago 2019 às 09:21
por babdallas
Veja se é o que deseja.
Re: Condição p/ ocultar/exibir multiplas linhas não-sequenci
Enviado: 24 Ago 2019 às 19:07
por eduardoadm
Obrigado Jimmy e Babdallas!
Usei a solução do Babdallas, mas fiz uma alteração na planilha Entrada e não consigo chamar a função Formata_Impressao ao alterar o valor de B4 na planilha entrada.
Segue em anexo.
Re: Condição p/ ocultar/exibir multiplas linhas não-sequenci
Enviado: 24 Ago 2019 às 21:42
por babdallas
Veja agora.
Re: Condição p/ ocultar/exibir multiplas linhas não-sequenci
Enviado: 24 Ago 2019 às 22:05
por eduardoadm
Não funcionou. Acredito que a alteração deva ser realizada na planilha ENTRADA.
O Código da planilha era este abaixo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then [B5] = ""
Rows(5).Hidden = [B4] <> "CASADO(A)"
Rows("6:8").Hidden = [B5] = "SEPARAÇÃO TOTAL DE BENS" Or [B5] = "" Or Rows(5).Hidden = True
Formata_Impressao
End Sub
Condição p/ ocultar/exibir multiplas linhas não-sequenciais
Enviado: 24 Ago 2019 às 22:21
por eduardoadm
Deu certo. Ficou assim:
Private Sub Worksheet_Change(ByVal Target As Range)
Formata_Impressao
End Sub