Новая ошибка типа mistmatch в коде, который отлично работал вчера

Question

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

Я попытался открыть шаблон и перезапустить свой проект, но я получилта же ошибка.

Проблема с кодом в этой строке:

If sht1.Range("F" & ii).Value < 0.002 And sht1.Range("F" & ii).Value > -0.002 Then

Я получаю: type 13, mismatch error

Любая помощь будет оценена, как этот кодвчера работал, и теперь я в замешательстве от того, что могло измениться.

Answer 1

Вы можете получить ошибку Type mismatch, если ячейка содержит ошибку.Вы можете проверить это с помощью функции IsError:

Dim val As Variant
val = sht1.Range("F" & ii).Value
If Not IsError(val) Then
    If val < 0.002 And val > -0.002 Then
        ' ... Do your work ...
    End If
End If