Ошибка Run-time error '9'

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

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

17.02.2011 18:51:28

Добрый вечер.
Помогитеобойти ошибку.
Макрос выбирает лист имя которого указано в ячейке С9 и удаляет лист,также в столбце А выбирает значение (имя листа, которое указано в ячейке С9) и удаляет и столбца А ячейку с этим значением.
Все отлично работает, однако если в ячейке С9 указано имя несуществующего листа вылезает ошибка.
Вопрос? Как сделать, чтобы выполнение макроса останавливалось, сообщение об ошибке на появлялось.
Вот код:

Private Sub CommandButton2_Click()
Sheets(Range("C9").Value).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Sheets("Лист1").Select
Columns("A:A").Select
Selection.Find(What:=(Range("C9").Value), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Delete
Range("C5").Select
End Sub

KuklP

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

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

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

17.02.2011 18:57:56

Делал на коленке, не проверял. Пробуйте.
Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
on error resume next
Sheets(Range("C9").Value).Delete
Sheets("Лист1").Columns("A:A").Find(What:=(Range("C9").Value), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Delete
Range("C5").Select
Application.DisplayAlerts = true
End Sub

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

Guest Гость	#3 17.02.2011 19:27:01 Спасибо! Этим методом я попытался воспользоваться сразу, однако получается что: on error resume next передает управление ActiveCell.Delete и происходит удаление любой активной ячейки где установлен курсор

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 17.02.2011 20:00:09 А что Вы хотите, без Вашего примера гадать... Так можете долго прождать. Ставьте дальше проверку на err. Я сам - дурнее всякого примера! ...

R Dmitry

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

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

Excel,MSSQL,Oracle,Qlik

17.02.2011 20:58:58

ну так выйдите вообще из процедуры при ошибке
If Err.Number <> 0 Then Err.Clear: Exit Sub
следущей строкой после on error resume next

Спасибо
Mail: В профиле Skype: В профиле

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#6 18.02.2011 05:47:21 Private Sub CommandButton2_Click() On Error Resume Next: Dim sh As Worksheet Set sh = Sheets(Range("C9").Value): If Err Then Exit Sub Application.DisplayAlerts = False: sh.Delete: Application.DisplayAlerts = True Columns("A:A").Find(What:=(Range("C9").Value), LookAt:=xlPart).Delete End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему