MACRO TO HIDE BLANK ROWS

[keyson2004]

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.

 

[Gary''s Student]

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

 

[mudraker]

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

 

[Bob Phillips]

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

 

[keyson2004]

Hi, Yes

 

[keyson2004]

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

 

[Gary''s Student]

The macro examines the cells in seuqence:
C1, C2, C3, ....C192
If it find a blank in a cell, the row is hidden.