Countif - result if true is hide row- VBA

[davidhall]

I have several lines of data. Sometimes data that is pulled into my master spreadsheet has blank rows. I need a VBA function that states from rows 25 to 56 and from rows 96 to 127, if a 1 is not present in column A, then hide that row.

Any suggestions?

 

[Andrew Poulsom]

Can't you AutoFilter for 1?

 

[Weaver]

If the cells concerned will be blank, and not just <>1,then this may work for you:

Sub hideInRange()    
    On Error Resume Next
    Range("A25:A56,A96:A127").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

The on error is if there are no blank cells.

 

[davidhall]

Yes, thanks. That works