Вывести данные при трех условиях.

[segail]

Здравствуйте.
Есть форма VBA, на ней расположены последовательно четыре объекта.
Первый объект это Com_dt. Данный объект позволяет выбрать дату.
Второй объект это ComboBox1. Данный объект позволяет выбрать “Фирму”.
Третий объект это ComboBox2. Данный объект позволяет выбрать “Наименование” (сырье).
При выборе значения в третьем объекте (“Наименование” Private Sub ComboBox2_Change()), необходимо выполнить код), необходимо внести данные в четвертый объект Tex_r.
На рисунке показан пример, что надо внести (1. На выбранной дате, 2. На выбранной фирме, 3. На выбранном наименовании), на одном примере.

Я могу создать переменную найти дату или фирму или наименование, но как все это устаканить не знаю.

Тема наверное так, данные при трех значениях…

[doober]

На скорую руку
Надо перейти в третье измерение

[segail]

Сообщение от doober

На скорую руку
Надо перейти в третье измерение

А что это при Com_dt_Change
col = Com_dt.ListIndex + 4
и почему + 4 ?

[doober]

работает хоть правильно?
При Com_dt.ListIndex =0 на какой столбик указзывает?

[segail]

Ну а если использовать только код при
ComboBox2_Change
не создавая глобальных переменных и не используя их в других действиях?
При ComboBox1_Change
Poz = 1
Poz = 2
Poz = 3
ComboBox2_Change
+4
+15
+29
Это общий пример. Ну возьмем что столбец с фирмами и наименованиями определен, но количество фирм и наименований не ясен…
И тем более

    If ComboBox1.Value = "Фирма1" Then ComboBox2.RowSource = "=Расход!$B$4:$B$6"
    If ComboBox1.Value = "Фирма2" Then ComboBox2.RowSource = "=Расход!$B$15:$B$20"
    If ComboBox1.Value = "Фирма3" Then ComboBox2.RowSource = "=Расход!$B$29:$B$33"

это создано для примера.
Как произвести действие в ComboBox2

[segail]

Сообщение от doober

работает хоть правильно?
При Com_dt.ListIndex =0 на какой столбик указзывает?

На основание сказанного выше, скажу проще.
При выборе значения в ComboBox2_Change, необходимо вывести значение в Tex_r.
Естественно предоставленный пример ни есть факт, а есть припер (вроде я об этом намикал)…
Если необходим конкретный примере то на мыло. Естественно договоримся…

[doober]

Шлите на мыло

[segail]

Сообщение от doober

Шлите на мыло

момент.,,,,,,,,,,,,,,,,,,,,

[segail]

Сообщение от doober

Шлите на мыло

Задание получили, нет?

[doober]

Нет.
На почту отписался.
наверное голубь замерз