Формирование таблицы на основе данных с другого листа

[Машуля]

Здравствуйте!

Суть моей проблемы заключается в следующем:

В книге существует лист "Расчет", который содержит расчет часов по кафедре (за 2 семестра). На основании данных из этого листа формируются Выписки (лист "выписка") по каждой группе в отдельности.

Передо мной стоит задача: автоматизировать процесс формирования выписок.

Обозначения: 1з, 2з - 1 и 2 семестр заочной формы обучения, 1о и 2о - 1 и 2 семестр очной формы обучения.

Все исходные данные для формирования выписок находятся на листе "Расчет". Все выписки должны располагаться на одном листе.

Опыт работы с Excel у меня небольшой, в связи с этим возникают трудности. Прошу помощи: с чего мне начать? Хотя бы общий "план действий", в нескольких словах.

Заранее благодарна!

[soulcub]

Ну.. С чего начать.. Во-первых есть чудесный метод, с которым с помощью цыкла можно бегать по всем листам, открытым в Екселе

Sub Test()
    Dim x As Integer
    For x = 1 To Application.Workbooks.Count
        Application.Workbooks(x).Activate
    Next x
End Sub

Данный цыкл пробегает и активирует все книги, открытые в екселе.. Если у вас есть какие-то ячейки, которые по-любому есть в книге, на которую нужно перескочить, то ничто не мешает сделать иф, который будет проверять если ли то или иное значение в той или иной ячейке(Если да, значит это та книга что Вам нужна)
Когда найдёте нужную книгу, просто читайте нужную информацию в макрос, формируйте что нужно и таким же способом перебегайте на другую книгу и вставляйте данные. Всё просто.

[doober]

Я бы на дополнительном листе составил расписание ,чтобы в столбике С присутствовала 1 группа(нажимаем кнопку)
Далее при помощи фильтров можно фильтровать в ручном режиме группы и семестры.Если еще надо автоматизировать,можно продолжить

[Машуля]

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

Я бы на дополнительном листе составил расписание ,чтобы в столбике С присутствовала 1 группа(нажимаем кнопку)
Далее при помощи фильтров можно фильтровать в ручном режиме группы и семестры.Если еще надо автоматизировать,можно продолжить

Спасибо Doober! На листе "расчет" в столбике С, где стоят одновременно 2 группы, следует считать их как за одну, т. к. нет смысла их разделять, так как у них предметы и часы совпадают. И надобность в дополнительном листе отпадает.

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

[Машуля]

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

Ну.. С чего начать.. Во-первых есть чудесный метод, с которым с помощью цыкла можно бегать по всем листам, открытым в Екселе

Sub Test()
    Dim x As Integer
    For x = 1 To Application.Workbooks.Count
        Application.Workbooks(x).Activate
    Next x
End Sub

Данный цыкл пробегает и активирует все книги, открытые в екселе.. Если у вас есть какие-то ячейки, которые по-любому есть в книге, на которую нужно перескочить, то ничто не мешает сделать иф, который будет проверять если ли то или иное значение в той или иной ячейке(Если да, значит это та книга что Вам нужна)
Когда найдёте нужную книгу, просто читайте нужную информацию в макрос, формируйте что нужно и таким же способом перебегайте на другую книгу и вставляйте данные. Всё просто.

Спасибо за совет конечно, но в данном случае я работаю с одной книгой в которой 2 листа.

[alex77755]

При беглом просмотре несколько вопросов:
1. Предоставлены "Расчёт" и "Выписка" соответствуют друг другу?Группа БЗИС-21с в "Выписка"
Основы эк.теории - такого нет в "Расчёт"
Сразу пропадает желание смотреть дальше
2. Строка 275 в "Расчёт" "Зав.кафедрой Декан
Дальше продолжение таблицы? Так инадо? После 275 строки данные учитывать?
3. В "Выписке" по группам: Осенний - весенний семестры.
В расчётах только Осенний

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

А воспользоваться макрорекордером вера не позволяет?

[alex77755]

Ответа не поступило. Поэтому последние 8 строк не берутся к учёту

[Машуля]

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

Ответа не поступило. Поэтому последние 8 строк не берутся к учёту

Спасибо Вам большое! Это именно то, что было нужно!

[Каравай]

Пролистал штук десять-пятнадцать тем, но не нашёл ответа, хотя таких тем - через одну. Вопрос простой - взять весь столбец С и копировать из него в столбец D данные по условию в виде списка. Допустим С1 подходит - копируется в Д1, С2-37 не подходит - пропускает, С38 подходит - копируется в Д2 и так далее. Дело в том, что нужные данные в столбце С могут располагаться в любом порядке.
Есть ли простой способ решения? Примера нет, точнее - чистый лист.

[doober]

1. Решение всегда есть.
2

Примера нет, точнее - чистый лист.

Если вы сами не можете составить пример ,то нам и бубен не поможет понять,что конкретно надо делать.