Hide Rows From a Row to Last usedCell.Row

[helmekki]

Hi there
i want to hide from lRow Down to the last used Cell.

I tried to modify this code , but could not make it work.

Please Login or Register  to view this content.

an idea ?

[STEVE BELL]

Just a minor change in your code should do it...
==================
Dim lRow As Long

lRow = Selection.Row
If lRow <= 5 Then Exit Sub

Range(Rows(lRow), Rows(Selection.End(xlDown).Row)).EntireRow.Hidden = True
===========================================================
you could also use:

Range(Rows(Selection.Row), Rows(Selection.End(xlDown).Row)).EntireRow.Hidden
= True

(works in Excel 2000)
--
steveB

Remove "AYN" from email to respond
"helmekki" <[email protected]> wrote in
message news:[email protected]...
>
> Hi there
> i want to hide from lRow Down to the last used Cell.
>
> I tried to modify this code , but could not make it work.
>
>
> Code:
> --------------------
> Sub Macro2()
> Dim lRow As Long
>
> lRow = Selection.Row
> If lRow <= 5 Then Exit Sub
>
> Rows("lRow:" & Selection.End(xlDown)).EntireRow.Hidden = True
>
> End Sub
> --------------------
>
>
> an idea ?
>
>
> --
> helmekki
>
>
> ------------------------------------------------------------------------
> helmekki's Profile:
> http://www.excelforum.com/member.php...fo&userid=6939
> View this thread: http://www.excelforum.com/showthread...hreadid=377831
>

[dominicb]

Good evening Helmekki

Slight departure from your code, but it's neat and seems to work OK. It actually hides the rows from the currently active cell row right up to the last row containing information.

Sub Test()
lastrow = ActiveSheet.UsedRange.Rows.Count + 1
nowrow = ActiveCell.Row + 1
For f = nowrow To lastrow
Rows(f).Select
Selection.EntireRow.Hidden = True
Next f
End Sub

Is that any good to you?

HTH

DominicB

[helmekki]

Oh God..................

Thank u very very much..............