☰

Linhas a serem atualizadas automaticamente após o botão de alternância estar ativo

tag-icon • tag-icon microsoft-excel vba
Linhas a serem atualizadas automaticamente após o botão de alternância estar ativo

Estou tentando fazer o código (abaixo) para que, quando o botão de alternância for clicado, ele exiba as linhas. Porém, existem poucas linhas dentro disso que devem ser atualizadas de acordo com outra célula e manter certas linhas ocultas dependendo do valor dessa célula. O código abaixo funciona, mas as linhas não são atualizadas automaticamente e preciso clicar no botão de alternância para ocultar e exibir as linhas. Existe uma maneira de vinculá-lo dinamicamente para que ele atualize automaticamente quais linhas ocultar? Obrigado

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

Responder1

Se Progressfor o botão de alternância na Planilha1 junto com todos os intervalos, coloque-o no módulo Planilha1

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

informação relacionada