excel - ejemplo - Error "Objeto requerido" 424

range offset vba macro

Question

Tengo 2 hojas List y Comments . List se actualiza automáticamente desde otra hoja que importa y formatea datos

Quiero hacer un seguimiento de la frecuencia con que usamos cada objeto en la List hojas haciendo doble clic en la celda de ID (Range("List!$B$6:$B$22")) pero como los datos siempre cambian, la ID se mueve. los Comments que son una lista de todas las ID posibles y sus comentarios, pero no los valores importados, serían un buen lugar para almacenar los datos de recuento y la última fecha de uso.

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


If InRange(Target, Range("List!$B$6:$B$22")) Then
    Set c = Worksheets("Comments").Range("$A$2:$A$500").Find(Target.Value)
    If Not c Is Nothing Then
            Set c.Offset(0, 1) = c.Offset(0, 1) + 1
            Set c.Offset(0, 2) = Date
    End If
End If
Cancel = True
End Sub

Answer 1

No es necesario establecer

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("$B$6:$B$22")) Is Nothing Then
    Set c = Worksheets("Comments").Range("$A$2:$A$500").Find(Target.Value)
    If Not c Is Nothing Then
             c.Offset(0, 1) = c.Offset(0, 1) + 1
             c.Offset(0, 2) = Date
    End If
End If
Cancel = True
End Sub