Este fórum está sendo desativado

[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.

[babdallas]

Adapte para a sua necessidade

Código: Selecionar todos

With 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

[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!

[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

[babdallas]

Veja se é o que deseja.

[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.

[babdallas]

Veja agora.

[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

[eduardoadm]

Deu certo. Ficou assim:

Private Sub Worksheet_Change(ByVal Target As Range)

Formata_Impressao

End Sub