On Error Resume next not working VBA

Question

Я использую симуляцию Ctrl + F с помощью макросов для поиска определенного номера из листа, я добавил сообщение об ошибке следующего кода, если ему не удалось найти значение, но обработка ошибок не работает, я получаю следующее сообщение.

Вот код:

Sheets("Not filled").Activate 

    On Error Resume Next 

    Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _ 
    lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

Answer 1

Вы по-прежнему пытаетесь найти .Activate (НЕ) найденную ячейку.

Dim fnd As Range, refnumber As Long 

refnumber = 123 

With Sheets("Not filled") 
    .Activate 
    On Error Resume Next 
    Set fnd = .Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _ 
     lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False) 
    On Error GoTo 0 
    If Not fnd Is Nothing Then 
     fnd.Select 
    Else 
     MsgBox "Not found :(" 
    End If 
End With 

Эта попытка SetRange object найденного места. Если ничего не было, fnd var ничего.

Answer 2

Есть две возможности:

• Ломать на ошибки могли быть превращены обратно, используя On Error GoTo 0 заявление.

• Нарушение на всех ошибках вариант могут быть выбраны в Ошибки Ловушки раздела опции VBA редактора (проверить это меню Инструментов> Параметры> Общие> Ошибка Ловушка на VBA редактор меню). Если этот параметр выбран, компилятор VBA разбивается на все ошибки независимо от того, какая логика обработки ошибок применяется.