Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: lovko от 30.06.2015, 11:46

Название: Один макрос вызывает другой
Отправлено: lovko от 30.06.2015, 11:46
Здравствуйте! Если макросы находятся в разных модулях и нужно, чтобы один вызывал выполнение другого, используется Application.Run. Мне необходимо из макроса, который находится в модуле 7, вызвать макрос, который находится в "Эта книга". Application.Run не работает. Не соображу, как сделать. Помогите, пожалуйста! В "Эта книга" находится макрос "Бланки".
Private Sub Страховка()

If [Формулы6.0!C53] = "1" Then
[Формулы6.0!B53] = ""
Da = MsgBox(Worksheets("Главная").Range("M2"), vbOKOnly, "Ошибка")
Da = vbOK
Страховка
Else
Application.Run "Бланки"
End If
End Sub
Название: Re: Один макрос вызывает другой
Отправлено: cheshiki1 от 30.06.2015, 13:10
Application.Run "ЭтаКнига.Бланки"
Название: Re: Один макрос вызывает другой
Отправлено: lovko от 30.06.2015, 13:17
Оказывается, всё просто. Большое спасибо!
Название: Re: Один макрос вызывает другой
Отправлено: RAN от 03.07.2015, 21:12
Цитата: lovko от 30.06.2015, 13:17
Оказывается, всё просто.
Все еще проще  ;D
ThisWorkbook.Бланки