Excel VBA: ¿Ocultar todas las filas donde valor = valor de celda de desplazamiento de celda activa?
Tengo una hoja de cálculo presentada así:
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
Estoy usando el siguiente código vba para tratar de ocultar todas las filas que comparten el mismo número (en la Columna A) que la fila ActiveCell en la que el usuario ha hecho clic 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
Entonces, por ejemplo, si un usuario hace clic en 'Hacer clic para ocultar' en la columna C en la Fila1, todas las filas con el número 12 en la columna A deben estar ocultas.
En el momento en que recibo un código de error, 1004 desplazamiento del objeto o rango falló. Por favor, ¿alguien puede mostrarme dónde me estoy equivocando? Gracias por adelantado.