Cell Toggle to Show and Hide Rows in the Active Sheet

[kkorp]

Hello all, New Guy Here
I hoping to get some feed back here on a spreadsheet that I use to track an outside consultant remote installation of current software and new programs. I use a Legend as a guide line for the order of importance. (See Graphic) The first column is used for the group color. I'm not sure if its possible the use the colored cell as a toggle to show / hide the rows in the spreadsheet. I would like to be able too Click on to cell to show the colored rows and a second click to hide that content, just like a toggle.

Any help or thoughts would be greatly appreciated.

Thanks

 

[iggydarsa]

Where are they located?
Meaning, Legend and data are on the same sheet? if so, On what row the data starts? And is the data start from column A?

 

[kkorp]

The Legend is on the same sheet, Data starts on row 11 and ends on row 140 column A

 

[kkorp]

The Legends is on the same sheet and the cells colors start at B3 go to B8. It would nice if there was a way to add/remove more on the fly if possible. The Data starts on row 11 and ends on row 140 column A

 

[iggydarsa]

If you are familiar with VBAs, try this code on sheet level. If you are not familiar, let me know and I try to help you navigate through it.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 8 Then 'Legend range: second column and rows between 3-8
        lr = Range("A:A").Find(What:="*", After:=Range("a1"), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        For i = 11 To lr 'Data starting row
            If Cells(Target.Row, 1).Interior.Color = Cells(i, 1).Interior.Color Then
                Cells(i, 1).EntireRow.Hidden = Not Cells(i, 1).EntireRow.Hidden
            End If
        Next i
        Range("D1").Select
    End If
End Sub

 

[iggydarsa]

And if you add/remove items to the list just update the following parts of the code:

If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 8 Then

and

For i = 11 To lr

 

[kkorp]

I pasted the code in the Sheet1 under VBAProject area, Ran it but Nothing happened

 

[iggydarsa]

Did you click on any cells within B3:B8?

 

[kkorp]

Not sure about the sheet level comment.

Help

 

[kkorp]

I click on each cell that was colored, from B3 thru B8.

Nothing happened