I have developed a model that has 190 lines but certain cells are blank ie
(-) and i would like to hide that row were a certain cell is blank. How do I
write code for the macro to start at say C1 and then move down to C2 etc and
then when it finds a cell that is blank ( but contains a lookup formula) it
will hide that row and then continue until say come to c192 which contains
the word END. Can anybody help me please.

Sub hideum()
Set r = Range("C2:C192")
For i = 1 To 192
If Cells(i, "C").Value = "" Then
Rows(i).Hidden = True
End If
Next
End Sub

--
Gary''s Student - gsnu200819


"keyson2004" wrote:

I have developed a model that has 190 lines but certain cells are blank ie
(-) and i would like to hide that row were a certain cell is blank. How do I
write code for the macro to start at say C1 and then move down to C2 etc and
then when it finds a cell that is blank ( but contains a lookup formula) it
will hide that row and then continue until say come to c192 which contains
the word END. Can anybody help me please.

A cell can not be both blank & contain a formula

Do you mean you want to hide the row if the result of the formula is ""


--
mudraker

If my reply has assisted or failed to assist you I welcome your
Feedback.

www.thecodecage.com
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=39599

Sub DeleteBlanks()
Dim rng As Range
Dim LastRow As Long

Columns("D").Insert
Range("D1").Value = "Flag"
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("D2").Resize(LastRow - 1).Formula = "=C2="""""
Columns("D").AutoFilter field:=1, Criteria1:="=TRUE"
On Error Resume Next
Set rng = Range("D2").Resize(LastRow -
1).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
Columns("D").Delete
End Sub


--
__________________________________
HTH

Bob

"keyson2004" wrote in message
...
I have developed a model that has 190 lines but certain cells are blank ie
(-) and i would like to hide that row were a certain cell is blank. How do
I
write code for the macro to start at say C1 and then move down to C2 etc
and
then when it finds a cell that is blank ( but contains a lookup formula)
it
will hide that row and then continue until say come to c192 which contains
the word END. Can anybody help me please.

Hi, Yes

"mudraker" wrote:


A cell can not be both blank & contain a formula

Do you mean you want to hide the row if the result of the formula is ""


--
mudraker

If my reply has assisted or failed to assist you I welcome your
Feedback.

www.thecodecage.com
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=39599

Hi Thanks for this. How do move to the next cell until it finds anonther cell
("") ??

"Gary''s Student" wrote:

Sub hideum()
Set r = Range("C2:C192")
For i = 1 To 192
If Cells(i, "C").Value = "" Then
Rows(i).Hidden = True
End If
Next
End Sub

--
Gary''s Student - gsnu200819


"keyson2004" wrote:

I have developed a model that has 190 lines but certain cells are blank ie
(-) and i would like to hide that row were a certain cell is blank. How do I
write code for the macro to start at say C1 and then move down to C2 etc and
then when it finds a cell that is blank ( but contains a lookup formula) it
will hide that row and then continue until say come to c192 which contains
the word END. Can anybody help me please.

The macro examines the cells in seuqence:
C1, C2, C3, ....C192
If it find a blank in a cell, the row is hidden.
--
Gary''s Student - gsnu200819