Макрос нарезки по определенному параметру

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос нарезки по определенному параметру (Макросы/Sub)

JohnAike

Дата: Четверг, 05.11.2020, 16:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Прошу помощи с макросом нарезки документа.
Файл "филиал" пример документа который необходимо нарезать.
Файл "макрос нарезка" документ самого макроса.
Макрос прописал, но есть косяк что он зависает на обработке данных, подскажите в чем может быть проблема

К сообщению приложен файл: 5033746.xlsx (9.7 Kb) · 2941713.xlsm (22.6 Kb)

Сообщение отредактировал JohnAike - Четверг, 05.11.2020, 16:27

Ответить

CaramelManiac

Дата: Пятница, 06.11.2020, 00:22 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 64

Репутация: 22 ±

Замечаний: 0% ±

MS Excel 2003-2019

Здравствуйте.
вот в этой сабе - Sub createAndSaveMiniReportFiles()
вот в этой строке - Rows(j).Delete ' удаляем строку
Вы удаляете строку из Файл "макрос нарезка", а не из Файл "филиал", поэтому условие в Do While недостижимо

Вы заLoopили свой код.

ЗЫ
Может пригодится. Preserve - сохраняет содержимое массива при изменении его размерности. Например:
[vba]

Код

ReDim Preserve arrayOfItemsToCut(1 To n + 1)

[/vba]

Сообщение отредактировал CaramelManiac - Пятница, 06.11.2020, 00:32

Ответить

Pelena

Дата: Пятница, 06.11.2020, 09:24 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

JohnAike, долго разбиралась в Вашем алгоритме. На мой взгляд, очень много лишних действий, в частности, постоянное открытие/закрытие файла сильно будет замедлять процесс в случае бОльшего кол-ва строк. Поэтому поубирала лишние действия для ускорения работы.
И в файле есть ещё альтернативный вариант (кнопка с соответствующим названием)

К сообщению приложен файл: 2941713_1.xlsm (29.8 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

JohnAike

Дата: Суббота, 07.11.2020, 16:16 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

CaramelManiac, Pelena, Огромное спасибо за помощь!!! Pelena, Действительно намного быстрее. Очень благодарен!!!! hands

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос нарезки по определенному параметру (Макросы/Sub)

Страница 1 из 1
1