VBA do Excel - Ocultar todas as linhas em que value = Valor da célula de deslocamento de célula ativa?

Question

Oct 05, 2016, 11:21 PM

VBA do Excel - Ocultar todas as linhas em que value = Valor da célula de deslocamento de célula ativa?

Eu tenho uma planilha assim:

A        B            C
12       Row1         Click to Hide
12       Row2         Click to Hide
5        Row3         Click to Hide
4        Row4         Click to Hide
12       Row5         Click to Hide

Estou usando o seguinte código vba para tentar ocultar todas as linhas que compartilham o mesmo número (na coluna A) da linha activeCell na qual o usuário clicou para ocultar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(ActiveCell, Range("C:C")) Is Nothing And ActiveCell.Value = "Click to Hide" Then


Dim Cell As Range

Application.ScreenUpdating = False

Range("A4").End(xlDown).Select


For Each Cell In Range(ActiveCell, "A4")
Cell.EntireRow.Hidden = ActiveCell.Offset(0, -2)

Next
Application.ScreenUpdating = True



End If

End Sub

Por exemplo, se um usuário clicar em 'Clique para ocultar' na coluna C na Linha1, todas as linhas com o número 12 na coluna A deverão estar ocultas.

No momento, estou recebendo um código de erro, falha no deslocamento 1004 do objeto ou intervalo. Por favor, alguém pode me mostrar onde estou errado? Desde já, obrigado.