времени выполнения «91» ... пытается индексировать несколько столбцов

Question

Следующий фрагмент кода дает мне «Переменная объекта или переменная блока не установлена» ошибка

cIndx = wsMain.Range(Cells(i, begCol), Cells(i, endCol)).Find("Churn", MatchCase:=True, LookIn:=xlFormulas, Lookat:=xlWhole) 
If Not cIndx Is Nothing Then 
    If wsMain.Cells(i, statusCol) = "Active" Then 
     wsMain.Cells(i, cIndx.Column) = " " 
    End If 
End If 

Первая строка является виновником. Мои исследования пока показывают, что это связано с тем, как я индексирую Range, но официальная документация говорит, что я пытаюсь сделать это. Я просмотрел все сообщения, которые я мог найти здесь, с тем же названием, что и у меня, но ни один из них, по-видимому, не применим непосредственно к моей ситуации. Любые идеи очень ценятся. Счастливый опубликовать окружающий код, если больше контекста полезно.

Также любопытно, смогу ли я это сделать:

With wsMain 
    cIndx = .Range(Cells(i, begCol), Cells(i, endCol)).Find("Churn", MatchCase:=True, LookIn:=xlFormulas, Lookat:=xlWhole) 
    If Not cIndx Is Nothing Then 
     If .Cells(i, statusCol) = "Active" Then 
      .Cells(i, cIndx.Column) = " " 
     End If 
    End If 
End With 

Урожайность ту же ошибку, как указано выше

Answer 1

В обычный модуль кода, Cells() без квалификационного листа всегда будет ссылаться на ActiveSheet, так что вам нужно чтобы квалифицировать эти вызовы. Также необходимо использовать Set при присвоении значения переменной типа объекта.

Set cIndx = wsMain.Range(wsMain.Cells(i, begCol), wsMain.Cells(i, endCol)).Find(_ 
       "Churn", MatchCase:=True, LookIn:=xlFormulas, Lookat:=xlWhole) 
If Not cIndx Is Nothing Then 
    If wsMain.Cells(i, statusCol) = "Active" Then 
     wsMain.Cells(i, cIndx.Column) = " " 
    End If 
End If 

Answer 2

Поскольку cindx является диапазон Я думаю, вы обнаружите, что синтаксис должен быть:

Set cindx = .Range(Cells(i, begCol), Cells(i, endCol)).Find("Churn", MatchCase:=True, LookIn:=xlFormulas, Lookat:=xlWhole)` 

это работает для меня