Макрос для копирования данных из формы для формирования таблицы

[xander2112]

Добрый вечер, нужна ваша помощь в зацикливании макроса. В программировании не волоку вообще, но есть небольшой кусок макроса, записанного макрорекодером. Суть его в следующем. Существует прайс разработчика ПО. Там всё на макросах и конечному пользователю доступна только динамическая генерация цен и артикулов. Ввёл в одно поле определённую цифру- автоматом получил в 2 других полях артикул конкретного количества лицензий и сумму за это количество. Это так образно утрируя. Мне необходимо выстроить табличку при помощи постоянного изменения количества лицензий от 5 до 250 (на примере одного продукта, а так вообще дипазон может меняться и до 500) то есть изменяя цифры в одной ячейке от 5 до 250 и копируя каждый раз данные в несколько столбцов. Напротив каждого артикула - цена за него. Плюс я там ввёл ещё 2 столбика с названием продукта и количеством лицензий. То есть в финале мы имеем такой вид - артикул - продукт - число лицензий - цена за это количество лицензий

Вот файл макрос на первые 4 строки новой таблицы:
http://rghost.ru/private/45693168/50...3e62e6431588e3

У меня Офис 2010, так что в принципе проблем не должно быть. Документ был изначально в формате .xls
Приложил документ в новом формате .xlsm, потому что в .xls мой офис выдал предупреждение о несовместимости. Убрал защиту с листов.
Мой макрос зовут Артикул_название_количество_лицензи й_цена
Применялся на листе Для бизнеса.

[kalbasiatka]

Надо пример не в .txt а в .xls прикладывать.

[xander2112]

Выложил в нужном формате)

[kalbasiatka]

10 офис не понимает .xls? Ваш файл "паламатый") перезалейте.

[xander2112]

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

10 офис не понимает .xls? Ваш файл "паламатый") перезалейте.

Понимает... он не может его нормально сохранить в формат офиса 2003 с макросом. Говорит будут ошибки. Залил исходный прайс + отдельно пароль на любой лист + экспорт макроса из VBA-редактора экселя. http://rghost.ru/private/45702616/ed...1f0c1d1c525ab4

Кстати, у меня залитый мной ранее файл нормально работает

[kalbasiatka]

Проверяйте, может так?
качни меня

[xander2112]

Спасибо, хорошая штука, но жаль не универсальная) Если бы дело было только в тех 250 штуках... тот макрос, что я записал - работает при разных условиях, хотя имеет ужасный вид))) В общем там при изменении срока лицензирования или же при выборе в окошке "Льготы" на миграцию или продление всё ломается и имеем Run-time error 9. Subscript out of range. Просто мне нужно нагенерировать по каждому продукту все возможные варианты. Плюс там в Server Security начинается всё-таки с одного... Тогда формочку лучше сделать от и до. Думал будет какое-то упрощение моего варианта, а я потом изменяя диапазоны нагенерирую всё, что мне понадобится.

[kalbasiatka]

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

[xander2112]

Про генерацию я не говорил, что за раз) Просто думал, что смогу понять что там поменять... Мне и надо для конкретного прайса и всё. Они ничего не менят уже несколько лет... оно им не надо (хотя конечно же в голове у них я не был)
Там всё очень непросто с формулой той она зависима от многих переменных. Там даже в зависимости от количества лицензий коэффициенты другие подсчёта в определённых промежутках... Я пробовал там разобраться, но это выше моего уровня. На том же листе правее есть таблички, по которым можно глянуть что и как считается, правда сначала надо снять защиту, а потом отменить скрытие. Там не просто формула суммы... там цепочка взаимозависящих формул с условиями. Я пробовал считать приблизительно выходит больше 10000 строк в итоге. Поэтому и употребил это слово.

[kalbasiatka]

Скопируйте просто этот макрос для каждого случая и поменяйте мин/макс ну и диапазоны соответственно (в коде), нажали на каждую кнопку и будет длиннющий список (от этого создатели прайса старались уйти). В Module2 есть комментарии что и откуда, просто поменять адреся ячеек.