экспорт значений из таблицы по определенным параметрам - как?

[mankurt777]

Здравствуйте! Помогите разобраться в коде функций, пожалуйста.

Жизнь заставила поломать голову над Excel. Собственно, есть две таблицы (см. файл вложения). Первая - с исходными данными, в ней паре наименований вида ПОГС 1002 - ПОГС 1005 соответствует ряд значений, которые необходимо экспортировать во вторую таблицу справа, например столбец 4. Порядок наименований в правой таблице не совпадает с левой, то есть надо делать поиск по наименованию.
Написал функцию TABLE1 в VBA менеджере, с ее помощью удалось экспортнуть все ячейки, наименования которых полностью совпадают. Но если наименованию ПОГС 1002 - ПОГС 1005 в левой таблице соответствует наименование ПОГС 1005 - ПОГС 1002 (наоборот), то функция возвращает значение 0.
В этом случае мне необходимо значения из столбца 4 экспортировать с обратным знаком (умножить на -1). По аналогии сваял функцию TABLE2, но она не работает. В чем ее косяк, что сделал неправильно?

Спасибо заранее.

[doober]

Можно например так

Function TABLE1(Table As Range, SearchColumnNum1 As Integer, SearchValue1 As Variant, SearchColumnNum2 As Integer, SearchValue2 As Variant, SearchColumnNum3 As Integer)
    Dim i As Integer
    For i = 1 To Table.Rows.Count
              If Table.Cells(i, SearchColumnNum1).Text = SearchValue1.Text Then
                If Table.Cells(i, SearchColumnNum2).Text = SearchValue2.Text Then
                TABLE1 = Table.Cells(i, SearchColumnNum3)
                Exit Function
                End If
              End If
        Next i
        
          For i = 1 To Table.Rows.Count
              If Table.Cells(i, SearchColumnNum1).Text = SearchValue2.Text Then
                If Table.Cells(i, SearchColumnNum2).Text = SearchValue1.Text Then
                TABLE1 = (Table.Cells(i, SearchColumnNum3))
                Exit Function
                End If
              End If
        Next i
        
End Function

[mankurt777]

спасибо за ответ. А вы попробовали эту функцию, работает она для этого файла? А то у меня некоторые значения все равно нулевые получаются.

[doober]

Пробовал,есть пару 0,но и данных для этих условий нет