Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Один макрос вызывает другой

Автор lovko, 30.06.2015, 11:46

« назад - далее »

lovko

Здравствуйте! Если макросы находятся в разных модулях и нужно, чтобы один вызывал выполнение другого, используется 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

cheshiki1


lovko

Оказывается, всё просто. Большое спасибо!

RAN

Цитата: lovko от 30.06.2015, 13:17
Оказывается, всё просто.
Все еще проще  ;D
ThisWorkbook.Бланки