Snasui Excel Forum

Code: Select all

Sub MainCode()
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        If .Rows(10).Hidden = True Then
            Call Macro1
        Else
            Call HideUnhide
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub Macro1()
    Rows("1:11").EntireRow.Hidden = False
    ActiveWorkbook.Save
End Sub

Code: Select all

Sub MainCode()
    With Sheets("Sheet2")
        If .UsedRange.EntireRow.Hidden = True Then
            Call Macro1
        Else
            Call HideUnhide
        End If
    End With
End Sub

Code: Select all

Sub HideUnhide()
    Application.ScreenUpdating = False
    With ActiveSheet
        .UsedRange.EntireRow.Hidden = False
        If .Range("D11").Value < 9 Then
            .Range("D11").Offset(-9 + .Range("D11").Value, 0) _
                .Resize(9 - .Range("D11").Value).EntireRow.Hidden = True
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub Macro1()
    Rows("1:11").Select
    Selection.EntireRow.Hidden = False
    ActiveWorkbook.Save
End Sub

Code: Select all

Sub HideUnhide()
    Application.ScreenUpdating = False
    With ActiveSheet
        .UsedRange.EntireRow.Hidden = False
        If .Range("D11").Value < 9 Then
            .Range("D11").Offset(-9 + .Range("D11").Value, 0) _
                .Resize(9 - .Range("D11").Value + 1).EntireRow.Hidden = True
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub HideUnhide()
        Dim r As Range
        Dim i As Integer
        Application.ScreenUpdating = False
        With ActiveSheet
            .Range("B2:I10").EntireRows.Hidden = True
               i = (.Range("B2") - .Range("B10")) * 1 + 1
            If i < 0 Then
                MsgBox "Please check date."
                Exit Sub
            End If
            Set r = .Range("D11").Resize(1, i)
        End With
        If r.Count = 1 Then
            Exit Sub
        End If
        r.EntireRows.Hidden = False
        Application.ScreenUpdating = True
End Sub