help with code to automatically hid rows if a cell is empty

[bleeet]

hello

i am not good with VBA but i want to make a code in one of of the pages in my excel file so that if nothing appears in a cell in the range of C4 to C23 then the row is automatically hidden and and if something appears the row unhides

dunno if this matters but those cells will show info that come from info on another sheet.

i saw this code on another thread here but i don't know how to adjust this to fit my setting


Private Sub Worksheet_Calculate()
Dim i As Long
For i = 9 To 53
Rows(i).Hidden = Range("A" & i).Value = ""
Next i
End Sub

if anyone knwo how to do this or advice on a better idea please help

i hope you guys understand what i am saying

 

[bleeet]

thanks again VoG

 

[bleeet]

Maybe

Private Sub Worksheet_Calculate()
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Me.Unprotect password:="password"
For i = 4 To 23
    If Not IsError(Range("C" & i)) Then
        Rows(i).Hidden = Range("C" & i).Value = ""
    End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Me.Protect password:="password"
End Sub

sorry another problem again VoG

when i open the work book it prompts me with a window saying "file error: data may have been lost"

and on the same sheet i put this formula on all of my title headings to "open unit"

would you happen to know what the problem is and how i can fix it?

thanks

 

[VoG]

I think that is unrelated. I suggest that you start a new thread.