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

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход на другой лист после отработки макроса (Макросы/Sub)

Anis625

Дата: Четверг, 20.08.2020, 23:11 | Сообщение № 1

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

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

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

Excel 2013

Добрый вечер, участникам форума!

Нашел в интернете подходящий для своего вопроса макрос: при двойном нажатии на ячейку (столбца А) на Листе1 значение ее копируется в Лист2 в ячейку В4.
И вот есть необходимость чтобы после копирования активной ячейкой была В4 на Листе2 (куда копировали).
Макрокодером записал действие перехода на другой лист. Вставил его в исходный код - Debug (Метод Select из класса Range завершен не верно).
Подскажите, пожалуйста, как правильно завершить процедуру.

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
    Worksheets("Лист2").Range("B4") = Target
    Worksheets("Лист2").Select
    Range("C3").Select
End Sub

[/vba]

Ругается на последнюю строку

К сообщению приложен файл: ___.xlsb (15.4 Kb)

Ответить

gling

Дата: Четверг, 20.08.2020, 23:34 | Сообщение № 2

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

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

Сообщений: 2523

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

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

2010

Здравствуйте.[vba]

Код

Worksheets("Лист2").Select
Worksheets("Лист2").Range("B4").Select

[/vba]Вы процедуру вызвали с листа, а ячейку С3 не указали на каком листе она находится, то-ли на активном листе Лист2, вы ведь туда перешли, то-ли на листе с которого вызвана процедура. По этому и ругается.