Hide/unhide rows based on Column A (0/"")?

[DarkJester89]

I found this code, and I put it in the worksheet code, saved and exited and it doesn't do anything on open. Thank you for your time.

Private Sub Worksheet_Calculate()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Me.Range("A1:A80")
    If c.Value = 0 Or c.Value = "" Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub

 

[JoeMo]

That code fires when the worksheet calculates, not necessarily when the workbook is first opened or the worksheet is activated. What exactly are you wanting to do?

 

[mrshl9898]

I believe Worksheet_Calculate requires the sheet to recalculate. Not sure if that happens on Open...

These should be the triggers i'd assume

Excel Recalculation

Office developer client VBA reference documentation

docs.microsoft.com

You could try Workbook Open and select the sheet perhaps

Private Sub Workbook_Open()

 

[DarkJester89]

I'm trying to get it to trigger as a macro on button push

 

[MuchToLearn]

Just wondering, would you get the same result by using the Filter then dis-select the (blanks) & 0 values?

 

[mrshl9898]

Ok, well that is an event triggering it now. On button push use:

Sub dostuff()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Me.Range("A1:A80")
    If c.Value = 0 Or c.Value = "" Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub

 

[DarkJester89]

Thanks so much, I keep getting invalid use of Me Keyword

 

[JoeMo]

Thanks so much, I keep getting invalid use of Me Keyword

If your button is on the sheet that this macro applies to, just remove "Me.". Otherwise replace "Me" with a sheet reference like "Sheets("Sheet1")".