Код для кнопки

[ruavia3]

не пойму, как это работает..например, для 17 строки

Cells(17, i - 2) = Application.Average(Intersect(.Rows ("2:" & Rows.Count), _
.Columns(i).SpecialCells(xlCellType Visible)))

Т.е. при сортировке автофильтра - макрос берет среднее значение из отфильтрованных данных и вставляет в 17 строку в начиная с 3 столбца?

[SAS888]

i - это текущий номер столбца. В листе "данные" это цикл от 5 до 17.
Вышеупомянутая строка кода в ячейку строки 17 столбца i-2 (т.к. на листе "Sheet1" данные заносятся, начиная со столбца 3), помещает среднее арифметическое (Application.Average) ячеек пересечения диапазонов от 2-й до последней строки листа и всех видимых ячеек столбца i. Другими словами - отфильтрованные ячейки столбца i без заголовка.

[ruavia3]

в случае когда перед выбранной датой нет данных, например если в приложенном примере выбрать усл.1 = 1, усл.2 = а, усл. 3 = №1, дата 1 апреля 2009 года, то в ячейке А2 отразится начало недели - 30 марта. Диапазон С3:O9 нужно заполнить согласно дням недели, т.е. данные за 1 апреля должны стоять напротив этой даты, т.е. в строке 5 (в примере я ее выделил серым цветом).
Сейчас данные за 1 апреля записываются в первую строку диапазона, т.е. стр.3.

[ruavia3]

В связи с этим наверное не точно подсчитывается среднее за неделю.

[SAS888]

Посмотрите вложение. Все так?

[ruavia3]

Да, все работает. Спасибо)))

[ruavia3]

Next
            .[A:D].AutoFilter Field:=4, Criteria1:=z
            If .Cells.SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then

Почему в тот раз было >0, а сейчас 1 ?

[SAS888]

Прошлый раз было не правильно. Если после применения фильтра, количество видимых строк = 1, то значит, что строк, удовлетворяющих всем условиям фильтра нет. Есть только одна строка с заголовком.

[ruavia3]

Все равно не работает. Я изучил полностью код, да теперь если выбирать усл.1 = 1, усл.2= a, усл.3 = №1 - все работает) Но если выбрать №3, то данные не подгрузятся посмотрите Ваше последнее вложение.

[SAS888]

Все именно так, как м задумано. Скажите, а каким образом, при Условие1 = "1", условие2 = "a", Вам удается выбрать "№3" ? При выборе первых двух условий, в ComboBox "условие3" формируется список допустимых для ввода значений. Т.е. тех, которые удовлетворяют первым двум условиям. Среди этих значений нет "№3". Можно, конечно, ввести это значение вручную, но подгрузки не произойдет, т.к. оно не удовлетворяет условиям.
Таким образом, данные подгружаются только тогда, когда выполняются все условия и отфильтрованные по этим условиям значения попадают в выбранный диапазон дат.
Что-то не так?