Изменить значение диапазона ячеек на содержимое ячейки с двойным щелчком по относительному расположению

Question

Я пытаюсь изменить значения диапазона ячеек (раскрывающийся список) на содержимое ячейки с двойным щелчком, в которой указано либо PASS, FAIL, либо просто тире (-).

Я могу заставить это работать, когда я указываю точный диапазон ячеек раскрывающегося списка, но, поскольку я хотел бы использовать эту же функцию несколько раз вниз по электронной таблице, я хотел бы бытьвозможность изменять раскрывающиеся списки относительно местоположения ячейки с двойным щелчком, а не определенного набора ячеек.

Это мой код в настоящее время.Любые указатели в правильном направлении были бы очень полезны!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    On Error GoTo M
    If Not Intersect(Target, Range("V:V,W:W,X:X")) Is Nothing Then
        If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        Range("E33:T33").Value = Target.Value
    End If
    Exit Sub
M:
    MsgBox "Error"
End Sub

Answer 1

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

    Cancel = True
    On Error GoTo M
    If Not Intersect(Target, Me.Range("V:X")) Is Nothing Then
        If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        Target.EntireRow.Cells(5).Resize(1, 16).Value = Target.Value
    End If
    Exit Sub
    M:
    MsgBox "Error"

End Sub