loop hide cells


D

DarrenL

I tried this yesterday and got answers which, unfortunately, did not satisfy
my need. Thank you for your help, though. Let me try and explain a little
better.
I am trying to create a loop, where as many rows as I want will hide if, for
example, column b in the row above is empty. this is my code for one line.
Dim rng As Range
Set rng = Me.Range("b142:b186")
If Not Intersect(rng, Target) Is Nothing Then
Rows(143).EntireRow.Hidden = IsEmpty(rng.Value)
End If
I am thinking that I need a variable and a +1 or a -1 for each row, but can
not come up with anything. Anyone?
Thanks again for your help yesterday.
Darren
 
Ad

Advertisements

P

Patrick Molloy

i thought that I'd replied.beg pardon...
try this:

dim cell as range
for each cell in range("B142:B186").Cells
if cell.Value = "" then Rows(Cell.row).EntireRow.Hidden = True
next
 
D

DarrenL

That's kind of what I have, except I need it to hide a row below the cell
that I am referencing......any thoughts?
 
D

Don Guillett

??
for each cell in range("B142:B186")
if cell= "" then Rows(Cell.row+1).Hidden = True
next

or

for i=186 to 142
if cells(i,"b")="" then rows(i+1).hidden=true
next i
 
Ad

Advertisements

A

A possible solution

Well, in that case it seems to me that this line should do the trick:

if cell.Value = "" then Rows(Cell.row+1).EntireRow.Hidden = True
 

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