☰

Filas que se actualizarán automáticamente después de que el botón de alternancia esté activo

tag-icon • tag-icon microsoft-excel vba
Filas que se actualizarán automáticamente después de que el botón de alternancia esté activo

Estoy intentando crear el código (a continuación) para que cuando se haga clic en el botón de alternancia se muestren las filas. Sin embargo, hay algunas filas dentro de esto que deben actualizarse de acuerdo con otra celda y mantener ciertas filas ocultas dependiendo del valor de esa celda. El siguiente código funciona, pero las filas no se actualizan automáticamente y necesito hacer clic en el botón de alternancia para ocultar y luego mostrar las filas. ¿Hay alguna manera de vincularlo dinámicamente para que actualice automáticamente qué líneas ocultar? Gracias

Dim xAddress As String
xAddress = "55:136"
If Progress.Value Then
    Application.ActiveSheet.Rows(xAddress).Hidden = False
    If Range("I24").Value = "Yes" Then
        Rows("92:102").EntireRow.Hidden = False
        Rows("103:110").EntireRow.Hidden = True
    ElseIf Range("I24").Value = "No" Then
        Rows("92:102").EntireRow.Hidden = True
        Rows("103:110").EntireRow.Hidden = False
    End If
Else
    Application.ActiveSheet.Rows(xAddress).Hidden = True
End If

Respuesta1

Si Progressestá el botón de alternancia en la Hoja1 junto con todos los rangos, colóquelo en el módulo Hoja1

Option Explicit

Private Sub Progress_Click()
    Dim rngI24 As Boolean

    rngI24 = Me.Range("I24").Value2 = "Yes"

    Me.Rows("55:136").Hidden = Me.Progress.Value
    Me.Rows("92:102").Hidden = Not rngI24
    Me.Rows("103:110").Hidden = rngI24
End Sub

información relacionada