- 21 Jul 2017 às 12:09
#24939
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.
Eu preciso ir ocultando diariamente, e no final de semana preciso ocultar 4 dias. Por isso o problema.
Código: Selecionar todos
Cada função é um botão.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
Tiago Tas
Aqui é Curintia mano!
Aqui é Curintia mano!