Coluna de destaque quando uma linha é clicada, dependendo da condição

Question

Temos uma matriz grande com listas de servidores nas linhas e pessoas como colunas. Em seguida, marcamos a coluna / linha com um X se a pessoa tiver acesso ao servidor. Bastante básico. Mas à medida que a matriz cresce, fica mais difícil encontrar rapidamente a pessoa certa com acesso. Então eu gostaria de alguma maneira de tornar mais fácil o uso

Noexemploacima,cliqueinalinha"Recurso B" e gostaria que todas as colunas onde há um "X" (Usuário 1, Usuário 2) fossem destacadas de alguma forma. Então, se eu clicar na linha para "Recurso C", "Usuário 1" deve ser destacado.

    

Answer 1

Tente isso.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For Each cell In Range(Cells(Target.Row, 1), Cells(Target.Row, lastCol))
        If cell = "x" Then
            cell.EntireColumn.Interior.Color = 65535
        Else
            cell.EntireColumn.Interior.Color = xlNone
        End If
    Next
End Sub

Importante: insira a macro no objeto de planilha desejado, não em um objeto de módulo.
Ou então, Worksheet_SelectionChange não funcionará.

    

Answer 2

Parece que isso é o que você precisa:

link