Este fórum está sendo desativado

[tiagotas]

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.

[alexandrevba]

Boa tarde!!

Eu recomendo postar seu arquivo modelo.

Att

[tiagotas]

Segue planilha.

[osvaldomp]

Na Sub Linha20 substitua esta linha

Código: Selecionar todos

 .Cells.EntireRow.Hidden = False

por esta

Código: Selecionar todos

 .Rows("6:76").Hidden = False

Na Sub Linha21 substitua esta linha

Código: Selecionar todos

   .Cells.EntireRow.Hidden = False

por esta

Código: Selecionar todos

 .Rows("82:152").Hidden = False