поиск в диапазоне

[Yusch]

Добрый день!

Сравниваю значение листа 1 с диапазоном а3:а10 с листа 2
Вопрос: как вычислить номер строки из диапазона при совпадении? Или как перейти в другой столбец соответствующей строки

[DiemonStar]

Вопрос: как вычислить номер строки из диапазона при совпадении?

функция

=ПоискПоз(...)

Или как перейти в другой столбец соответствующей строки

Cells(ActiveCells.Row, Номер столбца).Select

в макросе

[Yusch]

Такое решение не подходит т.к. переходит не в диапазоне.

Вообщем у меня проблема в том, что мне нужно с листа 3 вытащить соответствующий тариф. Тариф берется в том случае, если совпадает номер договора и инн, т.е. если лист1.договор=лист3.договор и лист1.инн=лист3.инн, то лист1.тариф=лист3.тариф
Сделала проверку по договору, а дальше незнаю как сделать проверку по ИНН и вытащить соответствующий тариф
вот код:
Sub Tarif()
Dim DogCell As Object

Dim Dogovor As Range
Dim Tarif As Variant

Dim InnVklad As Range
Dim InnBaza As Range

Dim n As Integer




Workbooks("Расчетная таблица.xlsx").Worksheets(1).Activa te
Range("a2").Select

Do Until IsEmpty(ActiveCell)
Set Dogovor = ActiveCell

If Dogovor > 0 Then
For Each DogCell In Workbooks("Расчетная таблица.xlsx").Worksheets(3).Range( "b2:b5")
If DogCell = Dogovor Then
MsgBox ("Совпадение")
' Переход на соответствующий ИНН.лист1
Cells(ActiveCell.Row, 5).Select
Set InnVklad = ActiveCell
'Здесь не знаю как задать диапазон сравнения

'For Each InnCell In Workbooks("Расчетная таблица.xlsx").Worksheets(3).Cells( ActiveCell.Row, 1)

Else: MsgBox ("Не совпадает")
End If
Next DogCell

Else: GoTo nn
End If

nn:
ActiveCell.Offset(1, 0).Select
Loop
End Sub

[Yusch]

Вот файл с которым работаю

[DiemonStar]

=СУММПРОИЗВ((База!$A$2:$A$7=Вклады!E2)*(База!$B$2:$B$7=Вклады!A2)*База!$C$2:$C$7)

в ячейку Вклады!G2 и протягиваете...

[Yusch]

Данная формула работает если руками протягивать, а когда делаю вставку формулы в ячейку и протягиваю формула вставляется, но около ячейки выходит ошибка " формала содержит не распознаный текст"
Вставляю так:
Range("g2").formula="=формула"
Range(cells(startrow,startcol),cell s(endrow,endcol).filldown
Подскажите как исправить или может есть другой вариан решения?

[DiemonStar]

  [g2].FormulaLocal = "=СУММПРОИЗВ((База!$A$2:$A$7=Вклады!E2)*(База!$B$2:$B$7=Вклады!A2)*База!$C$2:$C$7)"
  [g2:g4].FillDown

у меня всё нормально работает.

[Yusch]

Теперь все ок! Если диапазон ячеек меняется в базе тоже , как в формуле будет задаваться диапазон до последней не пустой ячейке

[DiemonStar]

Sub dd()
  BasaEndRow = Sheets("База").Cells(Sheets("База").Rows.Count, 2).End(xlUp).Row
  VkladyEndRow = Sheets("Вклады").Cells(Sheets("Вклады").Rows.Count, 2).End(xlUp).Row
  [g2].FormulaLocal = "=СУММПРОИЗВ((База!$A$2:$A$" & BasaEndRow & "=Вклады!E2) _
                              *(База!$B$2:$B$" & BasaEndRow & "=Вклады!A2) _
                              *База!$C$2:$C$" & BasaEndRow & ")"
  Range("G2:G" & VkladyEndRow).FillDown
End Sub