По двойному клику копирование и ставка

Пользователь

Сообщений: 17 Регистрация: 27.11.2017

19.03.2024 01:51:55

Требуется помощь. Необходимо по двойному клику любой ячейки определенного столбца, пусть будет А, Листа 2 скопировать кликнутую ячейку и две соседние справа на Лист 1 в три определенные совместные ячейки одной строки

Sanja

Модератор

Сообщений: 16568 Регистрация: 10.01.2013

19.03.2024 04:05:57

В модуль листа 'Лист2'

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("A")) Is Nothing Then
  Cancel = True
  With Worksheets("Лист1")
    Target.Resize(, 3).Copy .Range("C1")
    .Activate
  End With
End If
End Sub

Range("C1") - первая из трех 'определенных совместных ячеек' на листе 'Лист1'
П.С. Могли бы приложить файл-пример. Как есть-Как надо

Прикрепленные файлы

Копирование по двойному клику.xlsm (16.45 КБ)

Согласие есть продукт при полном непротивлении сторон

bijela Пользователь Сообщений: 17 Регистрация: 27.11.2017	#3 19.03.2024 12:39:44 Sanja, вы меня прекрасно поняли, огромное спасибо. Отличный результат.