Помогите плз с макросом.

[jungo]

Рад приветствовать всех!!!

Наконец то работа с выходом в и-нет!

У меня огромная просьба помощи в создании макроса(присоединил файл):
Sheet1 - База данных.
Vot - желаемый результат.

В таблице список рабочих(User nr/name),отдел (Blok), успеваемость по виду работы(Usp), дневной план(Plan), Дата(Date), вид работы (Work).
В новом листе нужно суммировать Usp каждого рабочего и сравнить с Планом (Plan).
Рабочих нужно распределить по отделам (Blok).
Таблица каждый день с разным количеством рабочих (от 10 до 100).

Заранее спасибо за помощь!

[Teslenko_EA]

Здравствуйте jungo.
это не совсем то что Вы хотели, но работает.
Евгений.

[jungo]

Евгений, спасибо!
Так как таблица достаётся из программы каждое утро кнопка не вариант.
Может есть ещё варианты?

[jungo]

Друзья!
Спасайте!!!!! Завтра на ковёр к босу!!!

[Teslenko_EA]

jungo, я считаю стоит "зрить в корень" не заявляя "кнопка не вариант".
Итоговая таблица Вас устраивает? Способ её заполнения може быть другим, лишь бы результат удовлетворял.
Евгений.

[jungo]

Ок просто обьясните как построить PivotTable для динамическьой таблицы.

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "R1C1:R349C13").CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable1"

R349 - бывает и 500 и 600...

[Teslenko_EA]

jungo, не дождавшись ответа на вопрос "Итоговая таблица Вас устраивает?", позволил себе выложить "образец" без использования сводных таблиц.
Евгений.

[jungo]

Евгений. Огромное спасибо за помощь и за терпение.

Дело в том, что этот модуль лишь часть большого макроса, который еще к сожалению не готов.

Если я не ошибаюсь с помощью PivotTable можно достичь нужного результата.
Записав (record) функцию PivotTable в макрос я столкнулся с проблемой "Range" так как таблица каждое утро разных размеров (вниз).
Когда я записываю функцию в столбец что бы избежать неточности я использую:

X = [a65536].End(xlUp).Row
Range("F17:F" & X).FormulaR1C1 = "H1+H2"

В Excel 2003 я использовал:

         
X = [a65536].End(xlUp).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "A1:AX" & X).CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable3", DefaultVersion:=xlPivotTableVersion10

К сожалению в Excel 2000, который я имею (точней он меня) я не знаю как это делается.

Вы знаете?