Hiding rows with zero sum value
My simple tests show no problems. What are you seeing??
Try running the macro on a completely empty worksheet. The indicated rows
should loose visiblity.
--
Gary''s Student - gsnu200836
"Mike" wrote:
Thanks, unfortunately it doesn't seem to work and actually disables the
entire Macro? Any other possible suggestions?
Mike
"Gary''s Student" wrote:
Try:
Sub HidePurchaseZero()
Dim r As Range
On Error Resume Next
Set r = Union(Range("C92:C115"), Range("C123:C124"), Range("C132"))
r.EntireRow.Hidden = False
For Each rr In r
If WorksheetFunction.Sum(rr.EntireRow) = 0 Then
rr.EntireRow.Hidden = True
End If
Next
End Sub
--
Gary''s Student - gsnu200836
"Mike" wrote:
I would like to revise my Macro (below) so that I include additonal rows to
hide if the value is zero sum. I don't know how to add rows that are not
consecutive, specifically, how do I add the following rows to my Macro :
C123, C124 & C132?
Sub HidePurchaseZero()
On Error Resume Next
With Range("C92:C115")
.EntireRow.Hidden = False
For i = 1 To .Rows.Count
If WorksheetFunction.Sum(.Rows(i)) = 0 Then
.Rows(i).EntireRow.Hidden = True
End If
Next i
End With
End Sub
Thanks in advance for your help
|