Hide and Unhide the rows if the formula result is ""

[Malhotra Rahul]

Hi, May i get help on VBA script to hide and unhide the rows if the formula result is "" in Summary worksheet from Range cell B17:B240. So by pressing the button it should hide the blank rows with unhide if the cell value range from B17:B240 not equal to "".

 

[ranman256]

Public Sub HideUnhide()
Dim iRows As Long, r As Long


Range("B17").Select
iRows = ActiveSheet.UsedRange.Rows.Count
For r = 17 To iRows
   Rows(r & ":" & r).EntireRow.Hidden = ActiveCell.Value = ""
Next
End Sub

 

[Malhotra Rahul]

The provided scrip hidding the cell value as well where the formula result is with Value.

 

[Malhotra Rahul]

It is not hidding the blank formulated rows where the result is ""

 

[Malhotra Rahul]

I have used the formula from cell B17 to B240 in the Summary Sheet. if the match not found then the cell value would be "" and if the matches found then accordingly the results have been displayed. Accordingly i need VBA script.