Hiding row+n with gaps

[the3rdrock]

Hi everyone,



I am fairly new to VBA, although, after searching Google dry, I really shouldn't be...

I have spent far too many days trying to get this working.

The Show All and Hide All buttons are only for testing purposes. By default, all rows should show. Starting at row 5, if you click Data Controller, only the rows marked with Data Controller + 1 row below should show. Vice-versa for Data Processor. There is a one-row gap between the sets. NB. Some rows will be both Data Controller and Data Processor.

Apologies for now posting the code into the thread. I couldn't figure out how to replicate it.

Here is a screenshot, along with my VBA code as it stands.

Sub DataProcessor_Click()
    BeginRow = 5
    EndRow = 100
    ChkCol = 3

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol) = "Data Processor" Then
            Cells(RowCnt, ChkCol).Offset(1, 0).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub

Any help or direction would be greatly appreciated.

Thank you.

 

[the3rdrock]

Anyone, please?