Run time error 91: Object variable or with block variable non set, excel 2010 vba (не могу найти ошибку)

[ac1-caesar]

Уважаемые форумчане!

Пожалуйста посмотрите файл. Подскажите в чем ошибка.
В комбобоксе выбираю какой либо номер, делаю изменения в текстбоксах (или без изменений) пытаюсь сохранить и вылетает эта ошибка (Run time error 91: Object variable or with block variable non set). По сайтам искал подобные решения, подходящего не нашел. Ну может и руки кривые.

[IgorGO]

пробема в Вашем коде, там ее надо и искать, а не по сайтам.

номер ошибки написали - уже хорошо,
покажите еще строку в которой произошла ошибка и чуть детальнее при каких действиях это случилось, чтобы можно было повторить, потому что по Вашему пути

В комбобоксе выбираю какой либо номер, делаю изменения в текстбоксах (или без изменений) пытаюсь сохранить и

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

[ac1-caesar]

Sub SAVE_CHANGES()

If Me.TextBox_AD_CN_No <> "" Then

    Dim FindedFlag As Boolean, FindedRow As Long
    Dim CurADNumber As String, RezPoiskaAD As Range
    CurADNumber = Me.TextBox_AD_CN_No.Value
    Sheets("AD_EVALUATION_STATUS").Visible = True
    ThisWorkbook.Sheets("AD_EVALUATION_STATUS").Unprotect Password:="123"
    Sheets("AD_EVALUATION_STATUS").Activate
        With Sheets("AD_EVALUATION_STATUS")
            Set RezPoiskaAD = .Columns(1).Find(What:=CurADNumber, LookIn:=xlFormulas, _
            LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
            If Not RezPoiskaAD Is Nothing Then
                FindedFlag = True
                FindedRow = RezPoiskaAD.Row
                .Cells(FindedRow, Rows(2).Find("AMENDMENT").Column) = Me.TextBox_AMENDMENT.Value
                .Cells(FindedRow, Rows(2).Find("EFFECTIVE DATE").Column) = CDate(Me.TextBox_EFFECTIVE_DATE)
                .Cells(FindedRow, Rows(2).Find("SUPERSEDES").Column) = Me.TextBox_SUPERSEDES.Value
                .Cells(FindedRow, Rows(2).Find("SUBJECT").Column) = Me.TextBox_SUBJECT.Value
               
и т.д...

В этом коде, на этой строке: .Cells(FindedRow, Rows(2).Find("EFFECTIVE DATE").Column) = CDate(Me.TextBox_EFFECTIVE_DATE)

Что странно, раньше не было такой ошибки, даже не знаю после какого действия появилась.
Если в этой строке Rows(2).Find("EFFECTIVE DATE").Column, заменить на столбец 3. Так: .Cells(FindedRow, 3) = CDate(Me.TextBox_EFFECTIVE_DATE), то срабатывает.

А посмотреть куда сохраняется можно нажав кнопку "AD's Table". Листы скрытые.

[IgorGO]

если коротко, то Find не находит искомого значения, из-за того, что его нет или заданы условия поиска которые не позволяют его найти.

глобально процедура Find - сохраняет настройки условий поиска, и если указать только ЧТО искать то условия поиска будут приняты из предыдущего запуска Find. причем запуск Find из макроса из пользовательского меню - это запуск одного и того же процесса.

поэтому если Вы где-то указали например область поиска формулы то поиск будет производиться там...
и когда в ячейке написано =СЕГОДНЯ()
то поиск 16.10.2014 в значениях найдет эту ячейку, а в формулах - нет.

[ac1-caesar]

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

.Cells(FindedRow, Rows(2).Find("AMENDMENT").Column) = Me.TextBox_AMENDMENT.Value

а вот на следующей строке:

.Cells(FindedRow, Rows(2).Find("EFFECTIVE DATE").Column) = CDate(Me.TextBox_EFFECTIVE_DATE)

спотыкается

[IgorGO]

А как возможно исправить? Что делать то теперь?

искать причину ошибки

повторюсь: открыл файл, выбрал номер, нажал "сохранить", и ничего... все нормально

[ac1-caesar]

Сообщение от IgorGO

искать причину ошибки

повторюсь: открыл файл, выбрал номер, нажал "сохранить", и ничего... все нормально

Странно конечно, у меня упорно не хочет работать. Тут ребята подсказали: "В выражениях типа:"

.Cells(FindedRow, Rows(2).Find("EFFECTIVE DATE").Column) = CDate(Me.TextBox_EFFECTIVE_DATE)

"пропущена точка перед указанием на столбец, исправьте (во многих местах этого модуля) по типу как:

.Cells(FindedRow, .Rows(2).Find("EFFECTIVE DATE").Column) = CDate(Me.TextBox_EFFECTIVE_DATE)

"Ошибка в том, что номер колонки ищется не на нужном скрытом листе AD_EVALUATION_STATUS, а на активном - MAIN (там нет названий колонок во второй строке)"

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