Что пишут в конце макроса чтобы можно было продолжить его?

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

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

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

Dmitry1992_92

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

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

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

Сообщений: 38

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

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

Excel 2010

Здравствуйте! Подскажите пожалуйста новичку в Excel.
Вопрос очень простой: У меня есть макрос на странице, который позволяет копировать данные из ячейки и вставлять на другую страницу при двойном нажатии, теперь я хочу добавить на эту страницу другой макрос чтобы он тоже же копировал данные из ячейки, но уже с другого столбца, что мне нужно написать в конце кода чтобы я мог продолжить писать другой макрос на этой же самой странице?

Вот код:
[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]

Сообщение отредактировал Dmitry1992_92 - Понедельник, 25.12.2017, 09:24

Ответить

bmv98rus

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

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4110

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

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

Excel 2013/2016

To be continued. пишут :-)

Dmitry1992_92, В Вашем случае надо не дописывать , а сперва менять условие If Target.Column > 4 Then Exit Sub.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Pelena

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

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

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

Замечаний: ±

Excel 365 & Mac Excel

Немного подробнее объясните (а лучше в файле).
Сейчас у Вас макрос срабатывает до столбца D. А надо как? С какого другого столбца?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Dmitry1992_92

Дата: Понедельник, 25.12.2017, 09:45 | Сообщение № 4

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

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

Сообщений: 38

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

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

Excel 2010

Pelena, файл к сожалению предоставить не смогу, т.к. там много рабочей информации, могу постараться объяснить так:
хотелось чтобы при нажатии на ячейку, которая находится в столбце H, копировалась при нажатии на неё двойным щелчком и вставлялась на страницу №14 в столбец B.

И ещё хотелось бы узнать: можно ли сделать так чтобы эта ячейка вставлялась в столбец A на 14-й странице, с учетом того что в ячейке A уже есть какой-то текст? Или при копировании этот текст удалится и ставится ячейка A?

Сообщение отредактировал Dmitry1992_92 - Понедельник, 25.12.2017, 09:52

Ответить

Pelena

Дата: Понедельник, 25.12.2017, 09:57 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

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

Замечаний: ±

Excel 365 & Mac Excel

Не надо весь файл, сделайте небольшой файл-пример, чтобы не получилось "а у меня не работает"
Без примера
[vba]

Код

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

[/vba]
Если хотите, чтобы значение добавлялось к уже имеющемуся, то замените строку
[vba]

Код

.Cells(Lr, 1).Value = Target.Value

[/vba]
на
[vba]

Код

.Cells(Lr, 1).Value = .Cells(Lr, 1).Value & " " & Target.Value

[/vba]