Código VBA para esconder ou desproteger linhas com base num valor de célula

Question

2013-10-22 01:45:14 +0000 2013-10-22 01:45:14 +0000

2

Código VBA para esconder ou desproteger linhas com base num valor de célula

Eis o meu código, mas não está realmente a fazer nada, não vejo nada de errado com ele:

Private Sub PG1(ByVal Target As Range)
    If .Range("E50").Value = "Passed" Then
        Rows("51").EntireRow.Hidden = True
    End If
    ElseIf Range("E50").Value = "Failed" Then
        Rows("51").EntireRow.Hidden = True
    End If
End Sub

A minha intenção é que quando aquela célula específica na linha anterior estiver definida para “Passada” a partir do dropdown, então a linha abaixo apareceria, se for uma “Falha”, então será escondida em vez disso.

Fonte

I AM L http://superuser.stackexchange.com/users/200088

Respostas (3)

1

2015-08-06 21:24:01 +0000

não houve gralha. “linhas(51)” é válido. mas não é necessário o modificador “entirerow”

rows(n).hidden=true ; where n is an valid row number

para esconder várias linhas

range(rows(n1),rows(n2)).hidden=true ; will hide rows n1 though n2

Fonte

Mudcat http://superuser.stackexchange.com/users/200088

-1

2015-03-27 15:33:16 +0000

Private Sub PG1()
    Range("$E$51").EntireRow.Hidden = (Range("$E$50").Value = "Passed")
End Sub

Fonte

Raul Gonzalez http://superuser.stackexchange.com/users/200088

Questões relacionadas

6

Como posso obter os valores distintos/únicos numa coluna em Excel? 286

13

A forma mais fácil de abrir ficheiros CSV com vírgulas em Excel 203

9

Como posso "agrupar por" e somar uma coluna em excel? 153

10

Como encomendar fileiras facilmente em Excel com arrastar e largar ou mover para cima ou para baixo? 148

3

Quantos dados (MB) consome o Skype numa chamada de 1 minuto? 34

jonsca http://superuser.stackexchange.com/users/200088 · Accepted Answer · 2013-10-22 02:24:58 +0000

Parece que o seu código tem alguns erros de digitação. Quer algo que seja assim:

Sub PG1()

    If Range("E50").Value = "Passed" Then
        Rows("51:51").EntireRow.Hidden = True
    ElseIf Range("E50").Value = "Failed" Then
        Rows("51:51").EntireRow.Hidden = False
    End If

End Sub

Para que a fila se esconda/esconde actualizada à medida que muda a folha, coloque-a num evento Worksheet_Change:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("E50").Value = "Passed" Then
        Rows("51:51").EntireRow.Hidden = True
    ElseIf Range("E50").Value = "Failed" Then
        Rows("51:51").EntireRow.Hidden = False

    End If
End Sub