Ценник в Excel

[Facet]

Задача.
на листе 1 расположенна табличка 1.
В шапке (сверху в строку) количество товара, справа в стобик - номер товарной группы. В ячейках таблички - цена товара в зависимости от количества, т.е. по принципу игры морской бой, сверху выбираем цену, справа товарную группу, на пересечении соответствующих строки и столбца - цена товара из данной товарной группы при определенном количестве.
Под этой табличкой расположена табличка 2 со списком всех товаров и информацией к какой товарной группе относится этот товар.

Нужно.
на листе 2 ввести в первую ячейку - название товара (не товарной группы), во вторую - количество товара, а в третьей должна автоматом появляться цена. Excel должен проверить к какой товарной группе относится данный товар в таблице 2 а потом, используя данные из таблицы 1, показать соответствующую товарной группе и количеству цену.
Как реализовать? Помогите, пожалуйста!

[EducatedFool]

Никто Вам не поможет, пока не будет примера файла с исходными данными на 1-м листе, и желаемым результатом на втором.

[Facet]

Вот файл с примером. Надеюсь, что будет понятно, какой необходим результат. Спасибо!

[EducatedFool]

Попробуйте такой вариант:



Обратите внимание, что количество именованных диапазонов увеличилось.

Вот весь код:

Const Отступ = 2    ' количество пустых строк между ценниками

Sub СозданиеЦенников()
    Application.ScreenUpdating = False: On Error Resume Next
    Dim sh2 As Worksheet: Set sh2 = Worksheets.Add: sh2.Tab.Color = vbGreen
    Dim cell As Range, ra As Range, СтолбецВТаблице2 As Range
    Dim cell1 As Range, cell2 As Range, cell3 As Range

    For Each cell1 In [ГРУППА].Cells
        For Each cell2 In [КОЛИЧЕСТВО].Cells
            Set cell = Intersect(cell1.EntireRow, cell2.EntireColumn)
            Set СтолбецВТаблице2 = Intersect([ГруппыВтаблице2].Find(cell1).EntireColumn, [Таблица2])
            For Each cell3 In СтолбецВТаблице2.Cells
                If Len(cell3) Then СоздатьЦенник sh2, cell3, cell2, cell
            Next cell3
        Next cell2
    Next cell1
    sh2.UsedRange.EntireColumn.AutoFit
End Sub

Sub СоздатьЦенник(ByRef sh2 As Worksheet, ByVal Товар, ByVal Количество, ByVal Цена)
    Dim МестоДляНовогоЦенника As Range
    Set МестоДляНовогоЦенника = sh2.Range("b" & sh2.Rows.Count).End(xlUp).Offset(Отступ + 1) _
                                .Resize([ШаблонЦенника].Rows.Count, [ШаблонЦенника].Columns.Count)
    [ШаблонЦенника].Copy МестоДляНовогоЦенника
    МестоДляНовогоЦенника(1, 2) = Товар
    МестоДляНовогоЦенника(2, 2) = Количество
    МестоДляНовогоЦенника(3, 2) = Цена
End Sub

[Facet]

Спасибо за пример!
Хотелось бы реализовать это с выпадающим списком (так как в файле, который я закачал), т.е. чтобы на втором листе из выпадающего списка вместо "Группа 1", "Группа 2", итд. появлялось "Молоко", "Яйца" итд.