Макрос диалогового окна Да, Нет

Пользователь

Сообщений: 114 Регистрация: 10.02.2016

25.03.2016 08:49:13

Всем доброго-доброго утра.
Помогите, пожалуйста, решить последний вопрос.
я хочу вывести кнопку макроса на лист
то есть я его уже вывела и назначила макрос, но неправильно написала макрос.
суть макроса - если сумма недовоза и перевоза менее 500 руб, то диалоговое окно - "Акт невозможен"
если сумма более 500 руб и менее 3000 руб, то печать
если сумма более 3000 руб, то диалоговое окно - "Подтверждено контролером?", если ответ "Да" - то печать, если ответ - "нет" - то ничего.

Изменено: nellymilana - 08.04.2016 05:52:04

Sanja

Модератор

Сообщений: 19724 Регистрация: 10.01.2013

25.03.2016 09:56:24

Вариант

Код

Sub Print3()
If [GD6] + [GT6] < 500 Then
    MsgBox "При сумме менее 500 руб. Aкт не составляется!", vbCritical + vbOKOnly
    Exit Sub
ElseIf [GD6] + [GT6] > 3000 Then
    If MsgBox("Расхождения подтверждены контролером?", vbExclamation + vbOKCancel) = 2 Then Exit Sub
End If
ActiveSheet.PrintOut
End Sub

Согласие есть продукт при полном непротивлении сторон

nellymilana

Пользователь

Сообщений: 114 Регистрация: 10.02.2016

27.03.2016 23:57:29

спасибо за макрос
идеально работает на версии 2003.
а на 2007 слетает, выдает только "Расхождения подтверждены РАО" при любой сумме.
опечатки быть не может, потому что я не печатала, а копировала.
спасибо за скорый ответ.

nellymilana Пользователь Сообщений: 114 Регистрация: 10.02.2016	#4 27.03.2016 23:58:31 а, да, и еще. как прописать в макрос, что печатать 3 экземпляра?

kuklp

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

28.03.2016 00:22:15

Код
ActiveSheet.PrintOut , , 3

Можно же и справку почитать, там все есть.

Я сам - дурнее всякого примера! ...

nellymilana Пользователь Сообщений: 114 Регистрация: 10.02.2016	#6 28.03.2016 06:15:37 а, так вот что значит эта цифра 3. да, я видела, но поняла, что это и есть 3 экз-ра только сейчас. ну, не ругайтесь, пжлст.

nellymilana Пользователь Сообщений: 114 Регистрация: 10.02.2016	#7 28.03.2016 07:47:49 все, у меня все получилось! круто! спасибо всем

Sanja

Модератор

Сообщений: 19724 Регистрация: 10.01.2013

28.03.2016 08:37:20

Цитата
nellymilana написал: идеально работает на версии 2003. а на 2007 слетает ............................. все, у меня все получилось!

А что было-то? Почему слетало? Я макрос писал и тестировал в 2010-м. Проблем не было

Согласие есть продукт при полном непротивлении сторон

nellymilana Пользователь Сообщений: 114 Регистрация: 10.02.2016	#9 03.04.2016 07:09:22 да я затупила, макрос твой прописала в 2003, а в 2010 макрос кнопке не назначила, там старый был. потом догадалась, изменила макрос и в 2010.

Читают тему