Código VBA para ocultar o desocultar filas en función de un valor de celda

Question

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

2

Código VBA para ocultar o desocultar filas en función de un valor de celda

Aquí está mi código, pero realmente no hace nada, no veo nada malo en ello:

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

Mi intención es que cuando esa celda específica en la fila anterior se establece en “Passed” desde el menú desplegable, entonces la fila de abajo aparecería, si es un “Failed” entonces se ocultará en su lugar.

Fuente

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

Respuestas (3)

1

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

no había ninguna errata. “rows(51)” es válido. pero no es necesario el modificador “entirerow”

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

para ocultar varias filas

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

Fuente

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

Fuente

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

Preguntas relacionadas

6

¿Cómo obtengo los valores distintivos/únicos en una columna de Excel? 286

13

La forma más fácil de abrir CSV con comas en Excel 203

9

¿Cómo puedo "agrupar por" y sumar una columna en Excel? 153

10

¿Cómo reordenar fácilmente las filas en Excel con arrastrar y soltar o mover hacia arriba o hacia abajo? 148

3

Unidades SATA: ¿Cuál es la diferencia entre el modo b/n IDE y AHCI? 26

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

Parece que tu código tiene algunas erratas. Quieres algo que sea como esto:

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 se actualice el ocultamiento/desocultamiento de la fila al cambiar la hoja, ponlo en un 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