Need a Macro designed to hide rows that have nothing in column C

[bawils]

I need help and fast! I need a macro that will hide all rows which have nothing in colum C. Important: I add rows on a regular/daily basis so it needs to account for this too. The rows start at row 5 and go to row 104 right now, but remember, I add new rows daily! Can anyone help? Noone seems to be able to help me with this and it is the last element of a major excel project. The workbook will be locked too, do we need to incorparate a unlock/lock into it?

 

[rjwebgraphix]

I don't typically protect my sheets, so the unprotecting and protecting code may need to be modified to suit your needs.. I just merely recorded the default values to plug into this. The remainder should work as expected though.

Sub HideEmptyCrows()

ActiveSheet.Unprotect
Dim i As Long
Dim lr As Long

lr = Range("C65536").End(xlUp).Row
For i = lr To 5 Step -1
    If Cells(i, "C") = "" Then
        Rows(i).Delete Shift:=xlUp
    End If
Next i
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[MARK858]

Change "password" to your password if the sheet is password protected and change ActiveSheet to suit.
Please note that the code posted by rjwebgraphix deletes the rows rather than hide them

Sub HideMe()
    Dim cell As Range
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="password"
    Cells.EntireRow.Hidden = False
    For Each cell In Range("C5:C" & Cells(Rows.Count, "C").End(xlUp).Row)
        If cell = "" Then cell.EntireRow.Hidden = True
    Next cell
    ActiveSheet.Protect Password:="password"
    Application.ScreenUpdating = True
End Sub

 

[bawils]

Change "password" to your password if the sheet is password protected and change ActiveSheet to suit.
Please note that the code posted by rjwebgraphix deletes the rows rather than hide them

Sub HideMe()
    Dim cell As Range
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="password"
    Cells.EntireRow.Hidden = False
    For Each cell In Range("C5:C" & Cells(Rows.Count, "C").End(xlUp).Row)
        If cell = "" Then cell.EntireRow.Hidden = True
    Next cell
    ActiveSheet.Protect Password:="password"
    Application.ScreenUpdating = True
End Sub

Thank You Mark858: I Just realized I also need a way (Macro) to undo it!? Is that possible and if so...How?

 

[rjwebgraphix]

Please note that the code posted by rjwebgraphix deletes the rows rather than hide them

Ooops, I misread hide as delete.... Sorry.

 

[MARK858]

Thank You Mark858: I Just realized I also need a way (Macro) to undo it!?

One way is to use similar Syntax

Sub UnHideMe()
    Dim cell As Range
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="password"
    Range("C5:C" & Cells(Rows.Count, "C").End(xlUp).Row).EntireRow.Hidden = False
    ActiveSheet.Protect Password:="password"
    Application.ScreenUpdating = True
End Sub

 

[Trebor76]

Cross-posted, and resolved, here

 

[MARK858]

Ummm... no final response and cross-posted without a link...Noted