Проблема с ComboBox Excel

[Alexa6ka]

Здравствуйте Всем!!!
у меня такая проблема.В общем, проект большой,формирующий отчет по продажам разных компаний,по определенным критериям выбора типа "компания","период времени","марка товара"...Так как впервые на VBA, стараюсь разбираться по маленьким частям.ЕСТЬ несколько экранных форм, на одной из них 3 Combobox-а, в первом выбираем компанию, и после выбора активируется лист книги, на котором данные по этой компании.На оставшихся 2х выбирается период времени. Combobox-ы заполняются с первого листа диапазоном ячеек.Так вот, при выборе даты, необходимо, чтоб информация по этой дате как то выделялась. можно было бы, конечно, по ней просто сортировать, но потом нужна будет еще сортировка этих данных по марке товара, поэтому думаю что лучше будет просто как то "запомнить" и использовать в след.экранной форме при выборе марки товара.
Искала на форуме, нашла один пример похожий, но там combobox на листе, а мне нужно на форме. Как переделать ко мне, пока ума не хватает
приложу этот пример и мою "программу":

[Alexa6ka]

А еще забыла, я там пыталась закрасить ячейки в красный, если удовлетворяют выбору списка...

[Alexa6ka]

Ребят, ну очень нужно! Я не прошу писать мне программу, хотя бы натолкните на правильные мысли

[RAN.]

Сделать 1 форму для ввода всех критериев формирования отчета и 1 макрос создания отчета по этим критериям.

[Alexa6ka]

Одну форму в любом случае не получиться сделать, потому что критерии разные, в плане того что либо по марке, либо по ценовому сегменту...и я что то не представляю как потом можно макрос записать по ней...

[RAN.]

А если так?

[Aent]

Alexa6ka, почитайте про сводные таблицы ...

[Alexa6ka]

это конечно вариант=)))
вот только марок еще 56 и сегмента 4, притом можно выбирать несколько марок или сегментов, то есть выпадающий список уже отпадает...
Пытаюсь выделить дату после выбора ее списком. для начала просто хочу покрасить в красный цвет эти ячейки... если не сложно посмотрите код, потому что выдает ошибку=(((

Dim Zn As Boolean
For i = 1 To 70
Zn = ActiveSheet.Cell(i, 1) = ComboBox3.Text
If Zn = True Then
ActiveSheet.Cell(i, 1).Interior.ColorIndex = 3
End If
Next i

это уже пятый вариант, обычный тож не сработал=(

[Alexa6ka]

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

Alexa6ka, почитайте про сводные таблицы ...

Да, я понимаю, что такие отчеты оч просто сделать в сводных, вот только нужно именно в экселе и с экранными формами...не спрашивайте почему, потому что эт все начальство

[RAN.]

С этим то кодом все просто

For i = 1 To 70
If ActiveSheet.Cell(i, 1) = ComboBox3.Text Then 
ActiveSheet.Cell(i,1).Interior.ColorIndex = 3
End If
Next i

A вот с теми исходными данными, что в файле попытка, вам не помогут ни макросы, ни сводные таблицы.