Hiding rows

[trickdos]

I am trying to hide rows based on a value of a sum formula. If the su
fo the row is 0, i want to hide that row. I think this should work
but it is imbedded under other for...next statements. I dont know i
this is a problem, but I get a Next without For error.

Thanks for your help in advance....


For a = 1 To 14
Range("hide").Value = a
Range("hidestart").Offset(a - 1, 0).Select
If cell.Value = 0 Then
Selection.EntireRow.Hidden = True

Next

 

[Frank Kabel]

Hi
there's and End if missing in your code

 

[trickdos]

Thanks Frank, I caught that, but I am getting an error on the row: I
cell.Value = 0 Then

The error is: Object Required.

any ideas? Thanks again...

 

[Tom Ogilvy]

Why not use the Autofilter under the data menu.

as Frank Said

For a = 1 To 14
Range("hide").Value = a
Range("hidestart").Offset(a - 1, 0).Select
If cell.Value = 0 Then
Selection.EntireRow.Hidden = True
End If
Next a

Cell is undefined, so I believe you mean activeCell

For a = 1 To 14
Range("hide").Value = a
Range("hidestart").Offset(a - 1, 0).Select
If Activecell.Value = 0 Then
Selection.EntireRow.Hidden = True
End If
Next a

 

[Tom Ogilvy]

See my answer.

 

[Frank Kabel]

Hi Tom
i missed that one

 

[George Nicholson]

In your code, the compiler doesn't know what "cell" is.

Dim rng as Range

For a = 1 To 14
Range("hide").Value = a
Set rng = Range("hidestart").Offset(a - 1, 0)
If rng.Value = 0 Then
rng.EntireRow.Hidden = True
End If
Next a