Need help with Macro

[Leiprecht]

How do i get it to due the following

IF L62 = 0 Hide Rows 63:147
IF L62 = 1 Unhide Rows 63:69
IF L62 = 2 Unhide Rows 63:75
If L62 = 3 Unhide Rows 63:81
If L62 = 4 Unhide Rows 63:87
If L62 = 5 Unhide Rows 63:93
If L62 = 6 Unhide Rows 63:99
If L62 = 7 Unhide Rows 63:105
If L62 = 8 Unhide Rows 63:111
If L62 = 9 Unhide Rows 63:117
If L62 = 10 Unhide Rows 63:123
If L62 = 11 Unhide Rows 63:129
If L62 = 12 Unhide Rows 63:135
If L62 = 13 Unhide Rows 63:141
If L62 = 14 Unhide Rows 63:147

 

[Jarek Kujawa]

Sub hhide_uunhide

With Range("L62")
If .Value = 0 Then
Range("63:147").EntireRow.Hidden = True
Elseif .Value = 1 Then
Range("63:69").EntireRow.Hidden = False
ElseIf .Value = 2 Then
Range("63:75").EntireRow.Hidden = True
....
End If
End With

End Sub

continue the ElseIf clause for the remaining ranges/rows where "..."

 

[Jacob Skaria]

In the below code; I have marked a line. If you want only that section to be
displayed then remark the line and try...If you are new to macros Set the
Security level to low/medium in (Tools|Macro|Security). 'Launch VBE using
short-key Alt+F11. Insert a module and paste the below code. Save. Get back
to Workbook. Tools|Macro|Run Macro1()

Sub Macro1()
If Range("L62").Value = 0 Then
Rows("63:147").EntireRow.Hidden = True
Else
'Rows("63:147").EntireRow.Hidden = True
Rows("63:" & 63 + (Range("L62").Value * 6)).EntireRow.Hidden = False
End If
End Sub


If this post helps click Yes