Auto hide/unhide rows that have empty cells ( Preferably VBA Code)

Hi There,

I have 25 rows starting from 35 to 60 that get populated by a beforedouble click function.
The fields that aren't populated look un-sightly, so I was wondering if you could hide the unpopulated ones but leave the first 5 rows unhiden, and when the last unhiden row gets populated it would unhide another row ready to be populated?

I hope this makes sense!

P.s hopefuly with VBA.

Any help would be much apreciated.

Regards
Carl

I think i captured all the situations you will run into. Let me know if I missed anything:

Please Login or Register  to view this content.

Hi Stnkynts,

I've tried the code in sheet 2 but nothing happend, I forgot to mention that columbs B to H are the only ones used and there are a few drop down lists by Data Val but still nothing when cleared.

Hope this helps.

Regards
Carl

Lol, you just "forgot to mention" a huge part. Of course the code didn't work. It is based on column A.

Haha sorry about that, I get told off at work for not explaining myself properly too.
I've uploaded the workbook in question.


Kind Regards
Carl

Try this: Put in second sheet not the first.

Please Login or Register  to view this content.

Hey stnkynts,

I had a bit play around with the code and its working great, thanks for your help with this, its much apreciated.

Kind Regards
Carl

Hi Folks,

The current code hides rows E33:E58 and unhides one row at a time if the previous row is populated and works great, but now i need it to do the same to another set of rows too (rows E61:E86), i thought i would be able to copy the code and just change the cell address but no joy! any help would be great :o)

Thanks in advance

[Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("E33:E58")) Is Nothing Then
Application.ScreenUpdating = False
Dim LR As Long
LR = Range("E58").End(xlUp).Row
If Not IsEmpty(Range("E58")) Then
Range("E33:E58").EntireRow.Hidden = False
Exit Sub
End If
If Range("E58").EntireRow.Hidden = False Then
Range("E" & LR + 2, "E58").EntireRow.Hidden = True
Else
If Not IsEmpty(Target.Offset(1, 0)) Then
Target.End(xlDown).Offset(1, 0).EntireRow.Hidden = False
Else
Target.Offset(1, 0).EntireRow.Hidden = False
End If
End If
End If

End Sub]

Hi stnkynts,

Any chance you could add another set of rows (E61:E86) to the above code you kindly created for me please, i've tried but couldn't get it to work
Any help would be great

Thanks in advance