копирование предыдущей строки в текущую по даблклику VBA

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

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

11.04.2019 11:17:14

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

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

пример.xlsx (24.48 КБ)

Ametist69 Пользователь Сообщений: 80 Регистрация: 26.09.2018	#2 11.04.2019 11:36:04 Добрый день! На сколько я знаю привязать макрос к даблклику нельзя. Нужен либо элемент управления, либо комбинация клавиш. Если ошибаюсь может кто поправит.

RAN

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

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

11.04.2019 11:46:40

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Columns("B")) Is Nothing Then
        If Len(Target.Offset(-1)) > 0 And Len(Target.Offset(1)) = 0 Then
            Target.Offset(-1).EntireRow.Copy
            Rows(Target.Row).PasteSpecial xlPasteFormats
            Target.Value = Date
        End If
    End If
End Sub

Изменено: RAN - 11.04.2019 11:48:28

alexik Пользователь Сообщений: 2 Регистрация: 11.04.2019	#4 11.04.2019 12:05:32 Благодарю, то что надо!