Здравствуйте.
Возникла необходимость формировать отчет какждые сутки по всем изделиям.
В листах изделий записываются даты изготовления изделий, под каждым параметром записывается количество и вес, в одном столбце, один над другим (в строчку не хотят чтобы было).
В листе отчета нужно вытянуть значения количества и веса определнного параметра в определенную дату. Дата вводится на листе отчета.
Если использовать функцию VLOOKUP2
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, ResultColumnNum)
Exit For
End If
Next i
End Function
=VLOOKUP2(таблица; номер_столбца_где_ищем; искомое_значение; N; номер_столбца_из_которого_берем_значение)
то выбирается значение только количества, т.к. ячейка даты объединенная и в первой строчке стоит как раз количество, а вес невозможно вытянуть с помощью этой функции при таком оформлении таблицы.
чтобы рещить эту проблему пробовал разделять ячейки столбца даты и дублировать дату (одну черным цветом, другую белым цветом, чтобы не видно было), но это извращение и потом может боком вылезти, т.к. не видно вторую дату.
Помогите переделать функцию, чтобы она находила и подставляла значнеие ячейки под изначально искомым.
Прилагаю файл с примером.
п.с. подскажите еще, как в листе отчета было видно выбор даты, переход по листам, но не печатались эти ячейки.