Страницы: 1
RSS
Ошибка есть, а ошибки нет
 
Мяв.
Стал глючить макрос.
Фрагмент с проблемой
               
Код
If Len(cl.Value) Then
                    If .Names(cl.Value).RefersTo = wbDonor.Names(cl.Value).RefersTo Then
                        If Err Then
                        Stop
                        aa = Err.Number
                        Debug.Print Err.Number

Условие If Err Then выполняется, однако номер ошибки остается Empty
При замене условия на If Err.Number <> 0 Then картина та же. Лист Immadiate девственно чист.
Как такое вообще быть может?
 
А err.Description чему равно?
Может ошибка возникает где-то раньше - попробуйте закомментировать On Error Resume Next.
 
Цитата
RAN написал:
Лист Immadiate девственно чист.
Так ведь Stop срабатывает.
 
Alec Perle, на всякий Stop есть F5 и F8.

Казанский, err.Description тоже было Empty.

Проблема решилась путем предоставления компу времени на отдых. После отдыха появилось Err.Number = 1004.
Всем спасибо.
Страницы: 1
Наверх