2013-10-22 01:45:14 +0000 2013-10-22 01:45:14 +0000
2
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

Respostas (3)

9
9
9
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
Fonte
1
1
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
-1
-1
-1
2015-03-27 15:33:16 +0000 
Private Sub PG1()
    Range("$E$51").EntireRow.Hidden = (Range("$E$50").Value = "Passed")
End Sub
Fonte