Несоответствие типов - понятия не имею, как, где, когда, что - PullRequest
Новая
       80

Несоответствие типов - понятия не имею, как, где, когда, что

0 голосов
/ 17 июня 2020

Привет всем умным людям.

У меня есть одна часть моего макроса, которую я уже использовал несколько раз, но теперь она показывает ошибку времени выполнения 13: Несоответствие типов.

Никогда не было проблема с ним, и я думал, что просто копирую это неправильно, но я делал снова и снова и все та же ошибка.

Могут ли некоторые из вас просмотреть это и сказать мне, где может быть проблема ??

Макрос : 

Range("AV2").Select
    ActiveCell.FormulaR1C1 = "=RC[2]/RC[7]"
Selection.AutoFill Destination:=Range("AV2:AV" & Range("D" & Rows.Count).End(xlUp).Row)
    Range(Selection, Selection.End(xlDown)).Select

Dim SrchRng As Range
Dim cel As Range
    Set SrchRng = Range("AV2:AV" & Range("AV" & Rows.Count).End(xlUp).Row)
    For Each cel In SrchRng
    If InStr(1, cel.Value, "#N/A") > 0 Then
        cel.Offset(0, 2).Text = "UK Pound Sterling (GBP)"
    End If
Next cel

PS: желтая линия начинается с IF.

Спасибо

...