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

Question

У меня есть лист с 6 столбцами и 45 строками. В столбце B с именем I.D. каждая ячейка имеет уникальный трехбуквенный идентификатор. Я хочу создать код VBA, который позволит мне дважды щелкнуть ячейку в столбце B и скопировать ее в определенную ячейку на новом листе. У меня проблемы с указанием диапазона и переносом информации на новый лист. Мой код пока выглядит следующим образом:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Intersect(Target, Range("B3:B45")) Is Nothing Then
    cancel = True
    Worksheets("Dashboard").Activate
End If
End Sub

Answer 1

Нет необходимости активировать. Непосредственно скопируйте соответствующую ячейку. Вот пример

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Not Intersect(Target, Range("B3:B45")) Is Nothing Then
        Target.Copy Worksheets("Analysis").Range("A1")
        cancel = True
    End If
End Sub

Я копирую в ячейку A1 в Analysis. Не стесняйтесь менять его.