Поиск значения по двум переменным в разных листах

[14aleksey]

Добрый день.
Подскажите, пожалуйста, как реализовать следующую задачу. Имеется 3 листа с данными. Поля на форме, которые относятся к данной задаче, объединены Frame (Данные по товару). Выбор Товара, Выбор Типа Товара, Размер (мм), Цена Товара (грн). Комбобоксы по сути связанный выпадающий список. Значения, которые принимает список комбобоксов, берутся из листа MENU (диапазон ячеек). Необходимо чтобы при выборе значения из комбобокса (Выбор Товара), программа автоматически переходила на лист с данными (пример: САМОКЛЕЯЩАЯСЯ ЭТИКЕТКА соответствует листу PRICE LABELS, ПЛОМБОВАЯ ЭТИКЕТКА соответствует листу PRICE LABELS SEAL, БИРКА ДЛЯ МАРКИРОВКИ РАСТЕНИЙ соответствует PRICE HERBTAG). После чего пользователь, выбирая значения из списка комбобокса (Выбор Типа Товара), дополнительно вводит определенное значение в текстбокс (Размер (мм)) и после этого программа начинает искать значение из массива данных в листе, который соответствует выбранному значению из списка комбобокса (Выбор Товара), по двум переменным (значение комбобокса (Выбор Типа Товара) + значение текстбокса (Размер (мм))). Возвращает найденное значение в поле текстбокса (Цена Товара (грн)).
P.S. Данные на листах с массивами значений будут дополняться. Спасибо за Ваше время и труд.

[alex77755]

Значения, которые принимает список комбобоксов, берутся из листа MENU

Ну пока что они "берутся" из кода, а не с листа
С листа надо брать так:

Dim C
    'Заполняет список Товара значениями
    ComboBoxTovar.Clear
    With Лист1
        For Each C In Range("Товар").Cells
            ComboBoxTovar.AddItem C
        Next
    End With

Так же не совсем правильно в коде проверять значения комбобокса и от этого плясать.
И уж во всяком случае использовать .RowSource. Даже если заранее задать диапазон "с запасом"
Так проще и надёжней

Dim LR
 With Лист1
 LR = .Cells(.Rows.Count, ComboBoxTovar.ListIndex + 1).End(xlUp).Row
    Me.ComboBoxTipTovara.List = .Cells(2, ComboBoxTovar.ListIndex + 1).Resize(LR).Value
 End With