Закрытая книга

[Belokuraya]

Имеется функция, с помошью которой данные из одной книги качаются в другую. Function VLOOKUP2(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
N As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer

For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
End If
If iCount = N Then
VLOOKUP2 = Table.Cells(i - 2, ResultColumnNum)
Exit For
End If
Next i
End Function

Проблема в том, что если исходная книга закрыта, то вместо данных, вычесленных по этой функции появляется ошибка #NAME или #VALUE...

[The_Prist]

Попробуйте так

Function VLOOKUP2(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _
                N As Integer, ResultColumnNum As Integer)
    Dim i As Integer
    Dim iCount As Integer

    Select Case TypeName(Table)
    Case "Range"
        For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP2 = Table.Cells(i - 2, ResultColumnNum)
                Exit For
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Table)
            If Table(i, SearchColumnNum) = SearchValue Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP2 = Table(i - 2, ResultColumnNum)
                Exit For
            End If
        Next i
    End Select
End Function

[The_Prist]

Если не секрет, почему здесь

Table(i - 2, ResultColumnNum)

i-2? ведь при таком раскладе вернет не указанный номер вхождения, а указанный минус 2.

[Belokuraya]

В этом-то вся суть использования такой функции, а не vlookup, чтобы выводить значение из ячейки на две выше найденной.
Попробую ваш код, спасибо, завтра результат скажу=)

[Belokuraya]

Спасибо огромное, всё работает=)