Ошибка: переменная объекта или код блока не задан - PullRequest
Новая
       20

Ошибка: переменная объекта или код блока не задан

0 голосов
/ 20 мая 2019

Код фактически ищет формулу из диапазона в другой рабочей книге

Следующий код дает мне код объекта ошибки: в строке 6 

With ws1
    i = 6
    Do Until .Cells(i, 3) = ""
        If .Cells(i, 3).Value <> "NA" Then
                Set rngStatus = rngLookup.Find(.Cells(i, 3).Value)
                vCurrYear = rngStatus.EntireRow.Cells(1, 12).Formula
                vPrevYear = rngStatus.EntireRow.Cells(1, 11).Formula
            If Not IsError(v) Then .Cells(i, 5) = vCurrYear And .Cells(i, 4) = vPrevYear
        End If
        i = i + 1
    Loop
End With
...