Был рабочий код макроса
макрос обращается на соседнюю страницу "Договора" и заносит в текущую таблицу нужные данные. Если данных на соседней странице не нашлось (ячейка оказалась пустой), то макрос заносит в таблицу сообщение #Н/Д
внесли доработку - перед MsgBox добавили следующий код:
Код |
---|
Sub Обновить_договора() lrow = Cells(Rows.Count, 4).End(xlUp).Row Range(Cells(2, 8, Cells(lrow, .FormulaR1C1 = "=LOOKUP(2,1/((Договора!R2C17:R10001C17=RC[23])*" & _ "(Договора!R2C16:R10001C16=""Да"")),Договора!R2C1:R10001C1)" Range(Cells(2, 8, Cells(lrow, 8.Value = Range(Cells(2, 8, Cells(lrow, 8)).Value MsgBox "Выполнено!" End Sub |
внесли доработку - перед MsgBox добавили следующий код:
Код |
---|
If Range(Cells(2, 8, Cells(lrow, 8.Value = "#Н/Д" Then MsgBox "#Н/Д найдено" Range(Cells(2, 1), Cells(lrow, 1)).Font.Color = RGB(255, 0, 0) End If |
в итоге имеем ошибку - Type Mismatch (спотыкается на строке If)
Подскажите где у нас ошибка или как можно изменить макрос, чтобы обойти эту проблему?