Уважаемые гуру, совсем нет решения для моей ситуации?
Нарыл на соседнем форуме вот такой код. По двойному щелчку добавляет новую строку и заполняет ее данными содержащимися во всей строке, а мне необходимо добавление во второй лист с копированием выборочных данных. Посоветуйте пожалуйста применим ли он с корректировками для моего файла и как правильно его встроить? Спасибо.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Long
If Target.Column <> 4 Then Exit Sub
Cancel = True: r = Target.Row + 1: Rows®.Insert Shift:=xlDown
Target.EntireRow.Copy: Cells(r, 1).PasteSpecial Paste:=xlPasteValues
Cells(r, 9).ClearContents: Cells(r, 22) = Date: Cells(r, 26).Select
End Sub
Нарыл на соседнем форуме вот такой код. По двойному щелчку добавляет новую строку и заполняет ее данными содержащимися во всей строке, а мне необходимо добавление во второй лист с копированием выборочных данных. Посоветуйте пожалуйста применим ли он с корректировками для моего файла и как правильно его встроить? Спасибо.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Long
If Target.Column <> 4 Then Exit Sub
Cancel = True: r = Target.Row + 1: Rows®.Insert Shift:=xlDown
Target.EntireRow.Copy: Cells(r, 1).PasteSpecial Paste:=xlPasteValues
Cells(r, 9).ClearContents: Cells(r, 22) = Date: Cells(r, 26).Select
End Sub