Need Help with a Macro

L

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
 
P

Per Jessen

Hi

Look at this:

Select Case Range("L62").Value
Case Is = 0
Rows("63:147").Hidden = True
Case Is = 1
Rows("63:69").Hidden = False
Case Is = 2
Rows("63:75").Hidden = False
Case Is = 3
'etc...

End Select

Regards,
Per
 
J

Jacob Skaria

Sub HideUnhide()
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top