Hide Unhide Rows based on Cell Value

[Abhishek1988]

Hello Team,

I have a workbook and containing somedata in rows but i want to show them based on cell value. Bydefault rows should be hide.


I have data in.
$5:$10
$13:$18
$21:$$26

I want if A1=1 and post click on button $5:$10 should be unhide and all below should be hide.

Same if A1=2 and post.click on button $13:$18 should be unhide and all ($5:$10 and $21:$26) should be hide.

Please help me. Thanks in advance

 

[Trebor76]

Hi Abhishek1988,

Try this:

Option Explicit
Sub Macro1()

    Application.ScreenUpdating = False

    Select Case Range("A1")
        Case Is = 1
            Range("5:10").EntireRow.Hidden = False
            Range("13:18,21:26").EntireRow.Hidden = True
        Case Is = 2
            Range("13:18").EntireRow.Hidden = False
            Range("5:10,21:26").EntireRow.Hidden = True
    End Select

    Application.ScreenUpdating = True
    
End Sub

Regards,

Robert