Macro to loop through column, if blank blank cells then hide rows

Hi all.

I am trying to get a macro to automatically hide-rows based on if a condition is met.

Capture.JPG

I have severale tables where there are formulas outputing summary statistics for People. The spreadsheet is sample as it had sensitive info, each Person in Col C, will have a value shown in Col F after BUY or SELL, but if the person did nothing it would be blank in either of those fields. I would like a macro to go down the column hiding those people that have empty values for either Buy/Sell, as these People have nothing do with the current statistics we are comparing since they are not involved.

i.e. John can either have a value in F10 or F11, or none at all, if there is none at all I want F10/F11 rows hidden. Next, macro would look at Patrick in F12/F13 if there is no value in any of those rows then hide, if there is indeed a value in any of those cells go to the next person Mike and check F14/F15 for values, and so on...

If anyone out there has any idea how to do this I would be so thankful, would appreciate advise and how I should go about this.

hope to hear from you!

Stein

A demonstration as a beginner starter :

PHP Code: 

Sub Demo()
        Dim V, R&
        Application.ScreenUpdating = False
    For Each V In [{8,21,34}]
        With Cells(V, 3).CurrentRegion
            For R = 3 To .Rows.Count Step 2
                With .Cells(R, 4).Resize(2)
                    If Application.CountBlank(.Cells) = 2 Then .EntireRow.Hidden = True
                End With
            Next
        End With
    Next
        Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

It's weird to not attach a real layout workbook in the initial post except if you are able to modify any code …

According to your last attachment, paste this demonstration to the Sheet1(Summary Stats) worksheet module :

PHP Code: 

Sub Demo1()
       Dim A$, Rg As Range
       Application.ScreenUpdating = False
    With Me.UsedRange.Columns(5)
           Set Rg = .Find("BUY", , , xlWhole)
        If Not Rg Is Nothing Then
           A = Rg.Address
            Do
                With Rg(1, 2).Resize(2)
                    If Application.CountBlank(.Cells) = 2 Then .EntireRow.Hidden = True
                End With
                   Set Rg = .FindNext(Rg)
            Loop Until Rg.Address = A
           Set Rg = Nothing
        End If
    End With
       Application.ScreenUpdating = True
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » !