VBA Code tp Hide row where a specific cell CONTAINS the result of a formula?

[JMC57]

I have the folowing formula in cells in col G

=IF(ISERROR(VLOOKUP(C4,$A$3:$B$596,2,FALSE)),"",VLOOKUP(C4,$A$3:$B$596,2,FALSE))

if there is no result then the cell is empty. I want to hide rows where cell G cotains a result . I know how to hide blank rows but can't seem to modify the code to do the opposite

I hope there is help out there! Thanks in advance

 

[JoeMo]

Try this:

Sub HideRowsWithContent()
Dim c As Range, R As Range
Set R = Intersect(ActiveSheet.UsedRange, Range("G:G"))
Application.ScreenUpdating = False
For Each c In R
    If c.Value <> "" Then c.EntireRow.Hidden = True
Next c
End Sub

 

[JMC57]

Thank you Joe Works great. What would need to be added to run from a command button toggle hide/unhide. I am sorry that I did not include this in my first request

 

[JMC57]

Joe I got the command button to work. I made a change in data that creates #REF! in what WAS the blank row. I tied to modify your code without success. Any help with this will be appreciated. Thank you very much

 

[JoeMo]

Joe I got the command button to work. I made a change in data that creates #REF! in what WAS the blank row. I tied to modify your code without success. Any help with this will be appreciated. Thank you very much

I don't understand what you need help with. You want to hide a row if it contains an error like #REF or a value (non-blank)?

 

[JMC57]

I don't understand what you need help with. You want to hide a row if it contains an error like #REF or a value (non-blank)?

The rows that were blank now have #REF Therefore I need to NOT hide if if the result is #REF sicne that was fromally the blank row. Hide anything but REF or blank

 

[JoeMo]

The rows that were blank now have #REF Therefore I need to NOT hide if if the result is #REF sicne that was fromally the blank row. Hide anything but REF or blank

Try this:

Sub HideRowsWithContent()
Dim c As Range, R As Range
Set R = Intersect(ActiveSheet.UsedRange, Range("G:G"))
Application.ScreenUpdating = False
For Each c In R
If Not IsError(c) Then
    If c.Value <> "" Then c.EntireRow.Hidden = True
End If
Next c
End Sub

 

[JMC57]

Thanks for your help.