Hide rows with macro

[Fugazy]

I have a question about hiding and unhiding rows with a Macro. I have searched trough the forum but I couldn't find the right solution for my specific problem.

The situation is as follows:

I have a sheet that I want to make a bit smaller, by hiding rows. The amount of visible rows can be entered in cell F7. The rows that should be hidden are rows 14 till 25.

So if the number of visible rows entered in cell F7 is 1, row 14 unhides, if it's 2 row 14&15 unhide etc.

Is there a way to do this in a Macro?

Many thanks in advance for your help.

ps. I'm sorry for any grammar or spelling mistakes, English is not my mother language

[Tom Ogilvy]

rows(14).Resize(Range("F7")).EntireRow.Hidden = False

--
Regards,
Tom Ogilvy


"Fugazy" wrote:

>
> I have a question about hiding and unhiding rows with a Macro. I have
> searched trough the forum but I couldn't find the right solution for my
> specific problem.
>
> The situation is as follows:
>
> I have a sheet that I want to make a bit smaller, by hiding rows. The
> amount of visible rows can be entered in cell F7. The rows that should
> be hidden are rows 14 till 25.
>
> So if the number of visible rows entered in cell F7 is 1, row 14
> unhides, if it's 2 row 14&15 unhide etc.
>
> Is there a way to do this in a Macro?
>
> Many thanks in advance for your help.
>
> ps. I'm sorry for any grammar or spelling mistakes, English is not my
> mother language
>
>
> --
> Fugazy
> ------------------------------------------------------------------------
> Fugazy's Profile: http://www.excelforum.com/member.php...o&userid=35179
> View this thread: http://www.excelforum.com/showthread...hreadid=549471
>
>

[Ardus Petus]

Paste the following code in your Worksheet's code
(right-click tab, select View code)

HTH
--
AP

'----------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rNbRow As Range
Dim lrow As Long

Set rNbRow = Range("F7")
If Intersect(Target, rNbRow) Is Nothing Then Exit Sub
For lrow = 14 To 25
Rows(lrow).Hidden = lrow >= rNbRow.Value + 14
Next lrow

End Sub
'------------------------------------------------------------
"Fugazy" <[email protected]> a écrit dans
le message de news: [email protected]...
>
> I have a question about hiding and unhiding rows with a Macro. I have
> searched trough the forum but I couldn't find the right solution for my
> specific problem.
>
> The situation is as follows:
>
> I have a sheet that I want to make a bit smaller, by hiding rows. The
> amount of visible rows can be entered in cell F7. The rows that should
> be hidden are rows 14 till 25.
>
> So if the number of visible rows entered in cell F7 is 1, row 14
> unhides, if it's 2 row 14&15 unhide etc.
>
> Is there a way to do this in a Macro?
>
> Many thanks in advance for your help.
>
> ps. I'm sorry for any grammar or spelling mistakes, English is not my
> mother language
>
>
> --
> Fugazy
> ------------------------------------------------------------------------
> Fugazy's Profile:
> http://www.excelforum.com/member.php...o&userid=35179
> View this thread: http://www.excelforum.com/showthread...hreadid=549471
>

[Ardus Petus]

Pffffffff
I'm baffled!

--
AP

"Tom Ogilvy" <[email protected]> a écrit dans le message
de news: [email protected]...
> rows(14).Resize(Range("F7")).EntireRow.Hidden = False
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Fugazy" wrote:
>
>>
>> I have a question about hiding and unhiding rows with a Macro. I have
>> searched trough the forum but I couldn't find the right solution for my
>> specific problem.
>>
>> The situation is as follows:
>>
>> I have a sheet that I want to make a bit smaller, by hiding rows. The
>> amount of visible rows can be entered in cell F7. The rows that should
>> be hidden are rows 14 till 25.
>>
>> So if the number of visible rows entered in cell F7 is 1, row 14
>> unhides, if it's 2 row 14&15 unhide etc.
>>
>> Is there a way to do this in a Macro?
>>
>> Many thanks in advance for your help.
>>
>> ps. I'm sorry for any grammar or spelling mistakes, English is not my
>> mother language
>>
>>
>> --
>> Fugazy
>> ------------------------------------------------------------------------
>> Fugazy's Profile:
>> http://www.excelforum.com/member.php...o&userid=35179
>> View this thread:
>> http://www.excelforum.com/showthread...hreadid=549471
>>
>>

[Fugazy]

Wow, thanks for the swift and good replies!

It worked