Guru do Excel e Power BI

Enviado: **21 Jul 2017 às 12:09**

Tenho uma macro em uma planilha de programação que oculta linhas especificas de uma planilha quando intervalo selecionado está em branco, porém, quando oculto o intervalo do dia 20 ele funciona corretamente, ao ocultar o intervalo do dia 21 ele reexibi o intervalo do dia 20.
Eu preciso ir ocultando diariamente, e no final de semana preciso ocultar 4 dias. Por isso o problema.

Código: Selecionar todos

Sub OcultarLinha20()
  Dim i As Integer
  Application.ScreenUpdating = False
    With Sheets("Simulação")
      .Cells.EntireRow.Hidden = False
          For i = 1526 To 1596
            Select Case .Range("AF" & i).Value
              Case 0
              .Rows(i & ":" & i).EntireRow.Hidden = True
            End Select
         Next i
    End With
    Application.ScreenUpdating = True
End Sub

Sub OcultarLinha21()

  Dim i As Integer
  Application.ScreenUpdating = False
    With Sheets("Simulação")
      .Cells.EntireRow.Hidden = False
          For i = 1602 To 1672
            Select Case .Range("AF" & i).Value
              Case 0
              .Rows(i & ":" & i).EntireRow.Hidden = True
             End Select
         Next i
    End With
    Application.ScreenUpdating = True
End Sub

Cada função é um botão.