Здравствуйте уважаемые мастера экселя! Подскажите пожалуйста. Создал таблицу.
В лист cop_1 копируются данные с другого файла экселя, в который автоматически копируется отчет при загрузки файла в ссылке из списка. (примеры образцов отчета в документе на листе отчет1, отчет2, отчет3 и отчет4). Они все однотипные, только отличается количество строк (награжден), строка (победил) может находиться в любом месте отчета после строки (стат5).
не могу сделать цикл, что бы после загрузки всех отчетов в столбце (D) (с учетом копирования данных на против каждого отчет в списке), начиналась загрузка отчетов по списку в столбце (I) и так далее.
Затем все скопированные отчеты в столбец (D) копируются в лист filtr, где над ним производятся вычисления. Далее, все скопированные отчеты в столбец (I) копируются в лист filtr и так далее по очереди все столбцы с отчетами.
вероятно сам макрос цикла не очень сложный, но у меня не получается.
Файл прилагается. Очень надеюсь на вашу помощь, так как самостоятельно у меня такие сложные вложенные циклы не получаются. Заранее благодарен всем. кто сможет помочь!
Здравствуйте уважаемые мастера экселя! Подскажите пожалуйста. Создал таблицу.
В лист cop_1 копируются данные с другого файла экселя, в который автоматически копируется отчет при загрузки файла в ссылке из списка. (примеры образцов отчета в документе на листе отчет1, отчет2, отчет3 и отчет4). Они все однотипные, только отличается количество строк (награжден), строка (победил) может находиться в любом месте отчета после строки (стат5).
не могу сделать цикл, что бы после загрузки всех отчетов в столбце (D) (с учетом копирования данных на против каждого отчет в списке), начиналась загрузка отчетов по списку в столбце (I) и так далее.
Затем все скопированные отчеты в столбец (D) копируются в лист filtr, где над ним производятся вычисления. Далее, все скопированные отчеты в столбец (I) копируются в лист filtr и так далее по очереди все столбцы с отчетами.
вероятно сам макрос цикла не очень сложный, но у меня не получается.
Файл прилагается. Очень надеюсь на вашу помощь, так как самостоятельно у меня такие сложные вложенные циклы не получаются. Заранее благодарен всем. кто сможет помочь!orionis
Из всех перечисленных мной вопросов остался только один (остальные решил). не получается отфильтровать столбцы в приведенном ниже макросе пытаюсь отфильтровать столбцы по порядку. с указанной позиции. в которой есть текст, с копированием отфильтрованных ячеек с данными на другой лист. Первый фильтр колонки с текстом срабатывает хорошо, далее, фильтр ломается, и фильтрует опять первую колонку, но уже по второму критерию. Подскажите пожалуйста, где ошибка?
[vba]
Код
Sub copy_areal() ' Dim cx As Integer Dim clog As Integer Dim dVal As Range Dim xytxt1 As Long
Sub clear_filtr_n() ' Sheets("blank").Select For i = 1 To Sheets.Count If Sheets(i).FilterMode = True Then Sheets(i).ShowAllData Next i End Sub
[/vba]
Из всех перечисленных мной вопросов остался только один (остальные решил). не получается отфильтровать столбцы в приведенном ниже макросе пытаюсь отфильтровать столбцы по порядку. с указанной позиции. в которой есть текст, с копированием отфильтрованных ячеек с данными на другой лист. Первый фильтр колонки с текстом срабатывает хорошо, далее, фильтр ломается, и фильтрует опять первую колонку, но уже по второму критерию. Подскажите пожалуйста, где ошибка?
[vba]
Код
Sub copy_areal() ' Dim cx As Integer Dim clog As Integer Dim dVal As Range Dim xytxt1 As Long
Как бы работает. но почему то если включать запуск макроса, дальше второго фильтруемого столбца не идет, сбрасывает, а если пошагово выполнять, то иногда фильтрует дальше иногда не далее второго фильтруемого столбца. Подскажите пожалуйста. в чем может быть причина?
Как бы работает. но почему то если включать запуск макроса, дальше второго фильтруемого столбца не идет, сбрасывает, а если пошагово выполнять, то иногда фильтрует дальше иногда не далее второго фильтруемого столбца. Подскажите пожалуйста. в чем может быть причина?orionis
Файл приложил...теперь останавливается на первом фильтре и не копирует голову фильтра.Что происходит, даже не могу понять. Макрос должен перебрать все столбцы с текстом, скопировав по очереди результаты фильтра на лист filtr. Если текста в ячейке 33 столбца с текстом нет, то цикл останавливается
Файл приложил...теперь останавливается на первом фильтре и не копирует голову фильтра.Что происходит, даже не могу понять. Макрос должен перебрать все столбцы с текстом, скопировав по очереди результаты фильтра на лист filtr. Если текста в ячейке 33 столбца с текстом нет, то цикл останавливаетсяorionis
он и должен копировать отфильтрованные данные в ту же ячейку на листе filtr, но по очереди каждыю отфильтрованный столбец, сначала ааа, потом лист filtr очищается, потом bbb, потом лист filtr очищается, потом ссс, потом лист filtr очищается, и так далее, пока не встретит условие (Если текста в ячейке 33 столбца с текстом нет, то цикл останавливается)
он и должен копировать отфильтрованные данные в ту же ячейку на листе filtr, но по очереди каждыю отфильтрованный столбец, сначала ааа, потом лист filtr очищается, потом bbb, потом лист filtr очищается, потом ссс, потом лист filtr очищается, и так далее, пока не встретит условие (Если текста в ячейке 33 столбца с текстом нет, то цикл останавливается)orionis
Сообщение отредактировал orionis - Пятница, 10.02.2017, 13:55
orionis, Все, что Вы написали, макрос с успехом реализует. Видимо, Вы от него ждете чего-то другого. Попробуйте руками сделать конечный результат, тогда я пойму, где ошибка в Вашей логике.
orionis, Все, что Вы написали, макрос с успехом реализует. Видимо, Вы от него ждете чего-то другого. Попробуйте руками сделать конечный результат, тогда я пойму, где ошибка в Вашей логике.sboy
Извините, забыл добавить код, так как он был в отдельном макросе вычислений... [vba]
Код
Columns("A:A").Select Selection.ClearContents
[/vba]
Сейчас добавил, все идет хорошо, но при по шаговом выполнении, почему то столбец без текста тоже фильтруется и копируется, а цикл должен на нем остановиться, так как там нет данных
Извините, забыл добавить код, так как он был в отдельном макросе вычислений... [vba]
Код
Columns("A:A").Select Selection.ClearContents
[/vba]
Сейчас добавил, все идет хорошо, но при по шаговом выполнении, почему то столбец без текста тоже фильтруется и копируется, а цикл должен на нем остановиться, так как там нет данныхorionis