Обработка ошибки

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как при использовании кода:

CopyRng As Range
Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)

который открывает окно для указания ячейки, прописать корректный "выход из кода" (без всплывания ошибки) в случае если пользователь сразу после появления этого окна нажмет "ОК" или "Отмену" (Esc)?
Заранее спасибо.

[Hugo121]

Dim CopyRng As Range
On Error Resume Next
Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)
If CopyRng Is Nothing Then Exit Sub

[ольгаг]

Сообщение от Hugo121

Dim CopyRng As Range
On Error Resume Next
Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)
If CopyRng Is Nothing Then Exit Sub

Если запустить:

Sub test()
Dim CopyRng As Range
On Error Resume Next
Set CopyRng = Application.InputBox("Выделите строку для копирования?", "Выбор строки", Type:=8)
If CopyRng Is Nothing Then Exit Sub
End Sub

и сразу нажать кнопку "Отмена"
Все равно появляется ошибка: Run-time error '424' Object required.
Может быть дело в Set?

[Hugo121]

"Отмена" - это которая "Cancel" на форме inputbox'а?
У меня всё работает.

[ольгаг]

Сообщение от Hugo121

"Отмена" - это которая "Cancel" на форме inputbox'а?
У меня всё работает.

Да, та самая кнопка.
Но у меня вылетает ошибка (excel 2003).
Может нужно переменную Set как-то выгрузить?

[Hugo121]

Set - это не переменная. Это как Let, только другое - оператор присвоения значения объектной переменной.
Может быть у вас там ещё что-то путается? Попробуйте код в новом чистом файле. Всё закройте, откройте приложение заново, создайте новый файл, вставьте код.

[ольгаг]

Сообщение от Hugo121

Set - это не переменная. Это как Let, только другое - оператор присвоения значенияо бъектной переменной.
Может быть у вас там ещё что-то путается? Попробуйте код в новом чистом файле. Всё закройте, откройте приложение заново, создайте новый файл, вставьте код.

Спасибо за наставление!
Вы знаете, получилось, когда я выставила пароль на VBA проект.
Скажите пожалуйста, существует или нет пароль, это оказывает на что-то влияние?

[Hugo121]

В данном случае не должно. Вероятно локальный глюк, но я правда думаю, что может там MISSING в референсах VBA?

[ольгаг]

Сообщение от Hugo121

В данном случае не должно. Вероятно локальный глюк, но я правда думаю, что может там MISSING в референсах VBA?

У меня в Tools > References > "птички" только у:
- VBA
- Ms Excel 11.0 Object Library
- OLE Automation
- Ms Office 11.0 Object Library

что-то из этого влияет, как думаете?
Заранее всем спасибо.

[Hugo121]

Думаю влиять не должно.
Думаю что глюк.