Hide / UnHide Rows w/VBAcode

[Guest]

Hi, i can hide Unhide 1 row With:

Option Explicit
If Range ("D6") = 0 Then
Range("D6").EntireRow.Hidden = True

If Range ("D6") > 0 Then
Range("D6").EntireRow.Hidden = False
---------
What i'm trying to achive is:
If the Range of ("D6:D1000")has a "0" then
that row is hidden

Thanks for any help,
James

 

[Barrie Davidson]

On 2002-03-09 12:00, Anonymous wrote:
Hi, i can hide Unhide 1 row With:

Option Explicit
If Range ("D6") = 0 Then
Range("D6").EntireRow.Hidden = True

If Range ("D6") > 0 Then
Range("D6").EntireRow.Hidden = False
---------
What i'm trying to achive is:
If the Range of ("D6:D1000")has a "0" then
that row is hidden

Thanks for any help,
James

James, would autofilter work for you? (You can do this via code if you want).

 

[Dave Hawley]

Hi

Try:

Sub ToggleHide()
Range("D6").EntireRow.Hidden = (Range("D6").Text = "0")
End Sub

You cannot use just Range("D6") as this is the same as Range("D6").Value and the Value of an empty cell is zero, ulles that is what you want of course.