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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сделать копирование ячейки в строке двойным нажатием? (Формулы/Formulas)

Dmitry1992_92

Дата: Понедельник, 25.12.2017, 13:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Извиняюсь за такие "простецкие" вопросы, просто в инете не могу найти то что мне нужно.
Имеется код на странице:

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then Exit Sub
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Cells(Target.Row, Target.Column)
End With
End Sub

[/vba]

На данный момент копируется ячейка при двойном нажатии из столбца №4

Вопрос: что нужно изменить в данном коде чтобы ячейка копировалась не из столбца, а из строки? Например из строки №12.
Я так понимаю что за это отвечает [vba]

Код

If Target.Column = 4 Then Exit Sub

[/vba] что нужно тут переименовать?

Ответить

китин

Дата: Понедельник, 25.12.2017, 13:51 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 12 Then Exit Sub
Cancel = True
With Sheets(14)
Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lr, 1).Value = Cells(Target.Row, Target.Column)
End With
End Sub

[/vba]
Только вы малость неправы:
[vba]

Код

If Target.Column = 4 Then Exit Sub

[/vba]
Это если изменения происходят в столбце 4 то ничего не произойдет.
[vba]

Код

Exit Sub

[/vba]
из других столбцов будет копироваться в столбец 1