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

--
Message posted from http://www.ExcelForum.com

Hi
there's and End if missing in your code

--
Regards
Frank Kabel
Frankfurt, Germany


I am trying to hide rows based on a value of a sum formula. If the
sum 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 if 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 a


---
Message posted from http://www.ExcelForum.com/

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...

--
Message posted from http://www.ExcelForum.com

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



--
Regards,
Tom Ogilvy

"trickdos " wrote in message
...
I am trying to hide rows based on a value of a sum formula. If the sum
fo the row is 0, i want to hide that row. I think this should work, 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 a

but it is imbedded under other for...next statements. I dont know if
this is a problem, but I get a Next without For error.

Thanks for your help in advance....




---
Message posted from http://www.ExcelForum.com/

See my answer.

--
Regards,
Tom Ogilvy

"trickdos " wrote in message
...
Thanks Frank, I caught that, but I am getting an error on the row: If
cell.Value = 0 Then

The error is: Object Required.

any ideas? Thanks again....


---
Message posted from http://www.ExcelForum.com/

Hi Tom
i missed that one :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Tom Ogilvy wrote:
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




"trickdos " wrote in
message
...
I am trying to hide rows based on a value of a sum formula. If the
sum fo the row is 0, i want to hide that row. I think this should
work, 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 a

but it is imbedded under other for...next statements. I dont know
if
this is a problem, but I get a Next without For error.

Thanks for your help in advance....




---
Message posted from http://www.ExcelForum.com/

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


--
George Nicholson

Remove 'Junk' from return address.


"trickdos " wrote in message
...
Thanks Frank, I caught that, but I am getting an error on the row: If
cell.Value = 0 Then

The error is: Object Required.

any ideas? Thanks again....


---
Message posted from http://www.ExcelForum.com/