Hide rows with VB

[pioneerbank]

I found this in your archive:

Posted by Jacob on December 28, 2001 6:38 PM

Hi
With formatting you cant do this.
With VB you can.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value = 1 Then
Rows(Target.Row).RowHeight = 0
Else
End If
End Sub
Change the =1 to whatever you want in order for the code to trigger.
Hope this helps
Jacob
It's similar to what I want to do but I haven't been able to modify it sufficiently to work for me. I'm working on a financial statement and want to hide rows that contain all zeros, e.g. if SUM(b#:L#) = 0.

What do you suggest?

 

[doofusboy]

You could try:

[COLOR=black]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) [/COLOR]
[COLOR=black]   If Application.Sum("B" & Target.Row & ":L" & Target.Row) = 0 Then[/COLOR]
[COLOR=black]        Rows(Target.Row).RowHeight = 0[/COLOR]
[COLOR=black]   End If [/COLOR]
[COLOR=red][COLOR=black]End Sub[/COLOR] [/COLOR]