Создание итоговой таблицы

[Trimbl]

Уважаемые форумчане, здравствуйте!
Прошу Вашей помощи вот в каком вопросе:
Имеется лист "ИД"(см. вложение) на который "сброшены"(разделены пустыми строками) данные по месяцам(допустим - январь, февраль, март). Необходимо средствами VBA сформировать итоговую таблицу на отдельном листе по образу и подобию, как на листе "Итог".
"Прошелся" по форумам с нулевым результатом в итоге. С чего хоть начинать? Сводная таблица, сортировка(критерии - участок, блок, пласт), консолидация или все в обратном порядке?
Благодарю за внимание.

[IgorGO]

а нужно было всего-лишь
создать лист данные
сделать колонки
дата
участок
блок
пласт
экскаватор
добыча

и строчка за строчкой вносить данные хоть каждый день, хоть 1 раз в месяц, хоть по мере поступления

а потом сводная, фильтр по датам и...
и у вас постоянно ГОТОВЫЙ ОТЧЕТ (за выбранный период времени)

или

на том же листе, над шапкой несколько строк для вычисления итогов, в ячейках несколько формул с =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(...) фильтром выбираете все, что хотите, а ПРОМЕЖУТОЧНЫЕ.ИТОГИ посчитаю суммы и пр. по отфильтрованным данным

и никогда в жизни больше не паритесь над составлением отчетов, а формируете их несколькими нажатиями кнопок мыши
одно неудобство - необходимо постоянно дописывать в исходную таблицу поступающие данные

[Trimbl]

IgorGO, спасибо за ликбез, на досуге поэксперементирую, но все-же исхожу из того, что имеем. Все три таблицы листа "ИД" составляются на первое число следующего за отчетным периодом(месяцем) и колонки дата как таковой не существует. Конечно можно создать лист данные (представляющий из себя некий каламбур записей) с колонкой дата для последующей фильтрации и благодаря наличию которого будут создаваться промежуточные итоги - январь, февраль и т.д.
Но опять-же, я о своем, - используя то что имеем(лист ИД) через макрос можно ли создать сводную таблицу и отфильтровать ее по критерию - участок, потом -блок и наконец пласт ?

[IgorGO]

см. вложение

[Trimbl]

Совсем рядом, однако несколько не то.
1. Изначально существует только лист ИД, лист Итог необходимо создать. Отсюда и кнопка Bavzay должна быть на листе ИД.(это мелочи, думаю смогу "подпилить" Ваш код).
2. Возможно ли константу (Const U As String = "ЮжныйСеверБолотный") брать из заранее созданного(именованного) диапазона т. к. при изменении или добавлении участков придется править код.
3. Формирование отсортированных данных на листе Итог начать со строки 17 столбец В(как в примере Итог).
4. Сортировку данных код выполняет не до конца(см пример вложение Итог 1 лист Итог) т.е. нарушена последовательность отображения названий участков и отсутствует Болотный Блок2 пласт I.
P.S. Представленный порядок отображения пластов желателен, но не обязателен. Сообщение "нет такого!!!" излишне т.к. это результат моей описки.

[IgorGO]

1. Изначально существует только лист ИД, лист Итог необходимо создать

Один раз нажали кнопку - и уже существует. что делать при 2, 3, ... Х-ом нажатии кнопки?

4. Сортировку данных код выполняет не до конца

я Вам больше скажу - в коде данные вообще не сортируются. они записывались в уже существующие строки с названиями участков и блоков

Сообщение "нет такого!!!" излишне

в моем алгоритме - это важное сообщение, которое указывало, что итоговая таблица не согласована с исходными данными и было не понятно куда записать данные

[Trimbl]

Да, все очень печально.
Вот нашел код форумчанина КаМММ(подработал немного, надеюсь не на шкодил.)

Sub Сортировочка()
Dim Строка, i17
Строка = Range("B65536").End(xlUp).Row 'Поиск последней строки
R = "B17:X" & Строка 'Предполагаю что столбцов не больше чем 24
Range(R).Select
    Selection.Sort Key1:=Range("B18")
For i17 = 1 To Строка
    If Cells(i17, 1) <> Cells(i17 + 1, 1) Then GoTo дальше 'Проверка совпадений
    Cells(i17, 1) = "" 'Удаление совпадений
дальше:
Next i17
Range(R).Select
    Selection.Sort Key1:=Range("B2")
Строка = Range("B65536").End(xlUp).Row & ":" & i17
Rows(Строка).Select
Selection.Delete Shift:=xlUp 'Удаление совпадений
End Sub

Данный код сортирует по столбцу В, а
можно ли на основании этого кода (доработав его) произвести сортировку по трем столбцам(B;С; D) одновременно и в порядке(не в алфавитном), а по мере нахождения совпадений т.е. взяв за основу критерии(столбца B) , начиная с строки №17?(В порядке их следования(появления) до сортировки: 1. Южный 2. Север 3. Болотный)?

[Aleksandr H.]

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

...    If Cells(i17, 1) <> Cells(i17 + 1, 1) Then GoTo дальше 'Проверка совпадений
    Cells(i17, 1) = "" 'Удаление совпадений
дальше:
Next i17
....

Мсье знает толк в извращениях!

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

Данный код сортирует по столбцу В, а
можно ли на основании этого кода (доработав его) произвести сортировку по трем столбцам(B;С; D) одновременно и в порядке(не в алфавитном), а по мере нахождения совпадений т.е. взяв за основу критерии(столбца B) , начиная с строки №17?(В порядке их следования(появления) до сортировки: 1. Южный 2. Север 3. Болотный)?

Ищи реализацию "Сортировка по настраиваемым спискам"

[IgorGO]

сортировка по списку - это встроенная функционал, лежит в Excel и его не нужно искать)

см.вложение

[Trimbl]

IgorGO, большое спасибо за терпение и код. BANZAY так BANZAY даже дух захватывает от подобной прелести. Два дня пытался осмыслить Ваш код, но очевидно сделано все уж очень "зело умно". Просьба, по возможности, хоть в кратце прокомментировать код SummData