Страницы: 1
RSS
[ Закрыто ] Объясните причину ошибки, В коде возникает ошибка run time error 91
 
Вот пример кода (без излишеств):
Код
Sub Test()
    
    Dim IDCell As Range, EVCell As Range

    Set wsSource = ThisWorkbook.Sheets("TEST SHEET")

    Set ActivityIDCell = wsSource.Range(FindCell("Activity ID"))
    Set EVCell = wsSource.Range(FindCell("EARNED VALUE")) ' Ошибка возникает после второго раза запуска функции FindCell

End Sub

Function FindCell(CellContent As String)

    FindCell = wsSource.Cells.Find(CellContent, LookIn:=xlValues).Address

End Function

Объясните, почему, при повторном вызове функции FindCell выскакивает ошибка 91? =(
Я не совсем понимаю... Что именно не так.
 
За 70 сообщений, а с правилами не ознакомились.
ЗАКРЫТА. Название темы - никакое.

Вот пример, как правильно:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=76725&TITLE_SEO=76725-metod-applicationmatch-so-ssylkoy-na-druguyu-knigu
 
У меня не возникает. Нет файла - нет проблемы. Совет, вверху модуля написать: Option Explicit
Я сам - дурнее всякого примера! ...
Страницы: 1
Наверх