@mrm87

Здравствуйте. Нужна помощь специалистов. До этого с екселем работал не слишком часто, но теперь по роботе возникла такая потребность. Суть проблемы такая: есть файл ексель, с пятью листами. Нужно чтобы отдельные столбцы таблицы с первого листа переносились на другие листы файла. Так же нужно создать еще один лист с юзерформой откуда можно было бы выбирать дание клиентов - фирма, контактное лицо, адрес доставки и тому подобное. Как будет выгледить алгоритм или формула ?

Вложения

Альфа.zip (483.0 Кб, 12 просмотров)

0

@chumich

Какие столбцы, на какие листы и в какое место этих листов?
А здесь в чем сложность? В создании листа, формы, размещении контролов на форме или в том, что должно происходить после выбора?

0

@Hugo121

Ну и основной вопрос - в какой момент переносились? И переносились ли вообще? (Файл не смотрел - архивы дразнят секурити...)

0

@mrm87

На первом листе есть таблица с столбцами No, Product index, Product Name, Quantity, Factory price, Special Price, Discount%, Factory price value, Special Price value, Discount value
Нужно с таблицы на первом листе перенести столбцы No, Product index, Product Name, Quantity, Special Price, Special Price value в таблицы на 2, 4 и 5 листе.
Столбцы No, Product index, Product Name, Quantity в таблицу на 3 листе
И главное возможно ли это сделать если на первой странице будет не обычная таблица а динамичный диапазон ?

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

Добавлено через 2 минуты
Можно что бы сразу. При оформлении заказа нужно постоянно выполнять 4 разных формы, по этому хотел бы как то автоматизировать процес.

0

@Hugo121

Сразу когда? И всёж освежите информацию о значении слова "перенос" - иногда знаете действительно нужен перенос, но чаще нужно копирование. Пока из описания не понятно что именно нужно.

0

@mrm87

Извините, неправильно выразился. Нужно копировать столбцы, а не переносить. Я мог бы копировать отдельные ячейки. Но как провернуть это в динамическом диапазоне ?

0

@chumich

mrm87, данные на первом листе будут вводиться заново, а не добавляться к имеющимся?
На втором и четвертом листах они должны добавляться к существующим спискам?
А на третьем и пятом? Они заменяют то, что есть или добавляются?

0

@mrm87

Каждый раз все будет с нуля. Даные не буду добавлятся, а записыватся вместо старых. Это только пример. То есть количество строк таблицах будет одинаковым, разным будет только количество столбцов.

0

@chumich

Посмотрите как вариант. Работает либо нажатием кнопки на листе 1, либо через пункт меню "Макросы" (в этом случае кнопку можно убрать). Прежде чем нажимать, посмотрите каким должно быть исходное состояние на всех листах: сразу после шапки таблицы идет строка с суммой результата, которая = 0. От количества строк в таблице на листе 1 не зависит, но если предполагается большое количество, то макрос лучше немного переделать, используя массивы (для скорости обработки). И еще: строка с total на первом листе должна быть сразу за последней, заполненной данными, иначе в других таблицах тоже будут пустые строки.

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

Вложения

updata.rar (489.4 Кб, 15 просмотров)

0

@mrm87

Спасибо большое, за проделаную роботу и помощь. Только у меня не запускается, Runtime error 424. Таблицы не большые самой большой заказ был на 30 пунктов. В основном от одного до пяти.

0

@chumich

Ни кнопкой, ни макросом? У вас 2003? Может там какие-то запреты на макросы стоят? Проверьте. Там хоть какие-то макросы запускаются?

0

@mrm87

Да, к сожалению ексель 2003. Стоит надстройка плекс - запускается нормально.

0

@chumich

А этот запустится? Попробуйте.

Вложения

proba.xls (40.5 Кб, 8 просмотров)

0

@mrm87

Этот запустился - "Yes!"

0

@chumich

Попробуйте этот вариант. Если не сработает через кнопку, то через макрос. Если начнет работать, пойдут сообщения: 1, 2 и 3. Каждое по 4 раза. Проследите, если вылетит - где именно (после какого сообщения, на каком круге).

Вложения

updata1.rar (489.4 Кб, 9 просмотров)

0

@mrm87

Запускаю, выскакивает 1, жму ок и снова ошыбка

0

@chumich

Теперь этот. Если всё сработает, в конце вылезет сообщение. Только не слишком радуйтесь, это еще только будет ясно: где ошибка .

Вложения

updata2.rar (488.7 Кб, 6 просмотров)

0

@mrm87

Та же ошыбка, сразу при запуске макроса
Проблема только в офисе ? Могу напрячь админа что бы установил мне новую версию, или есть другой повод ???

0

@chumich

У меня 2007, и если я сохраню этот файл как .xlsm, то думаю, что проблем в 2007 быть не должно.
Я не знаю, докопаюсь до того, почему идет ошибка, или нет. Если есть возможность установить 2007, то это, уже, конечно, вам решать. Но, прежде, чем устанавливать, всё-таки проверьте на любом компе с Excel 2007 тот файл, который во вложении. Не забудьте только разрешить макросы. Если пойдет, то дело в версии.

Вложения

updata3.rar (508.3 Кб, 4 просмотров)

0

@chumich

mrm87, попробуйте этот вариант на своем 2003.

Вложения

updata4.rar (489.9 Кб, 8 просмотров)

0