Написание макроса

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

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

Мир MS Excel » Работа и общение » Работа / Фриланс » Написание макроса (Макрос переноса данных при определенных условиях)

Написание макроса

YaDNOVBA

Дата: Четверг, 27.02.2020, 12:41 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2010

Всем, здравствуйте.
Хочу обратиться к Вам за помощью в написании макроса для Excel.

В одной книге содержится 2 вкладки. На одной (скрытой) последней вкладке таблица прайса со столбцами:

Арт Наименование Штрих-код Опт 1 Опт 2 Опт 3 Опт 4 Опт 5 Опт 6 Заказ Итого Опт 1 Итого Опт 2 Итого Опт 3 Итого Опт 4 Итого Опт 5 Итого Опт 6

И строки со значениями по этим столбцам.

Нам нужен макрос переноса данных с строки при условии если в этой строке в столбце "Заказ" значение <>0. Нужно перенести данные этой строки:
1) со столбца "Арт" в Worksheets.Count в ячейку "В17"
2) со столбца "Наименование" в Worksheets.Count в ячейку "С17"
3) со столбца "Штрих-код" в Worksheets.Count в ячейку "D17"
4) со столбца "Заказ" в Worksheets.Count в ячейку "Е17"

И так по всем позициям в прайсе (их около 3000), добавляя их ниже предыдущей добавленной.

Затем присвоить ценовую группу по каждой позиции сходя из итоговой суммы заказа при выполнении условий по одной из ценовых групп.

Вывести в Worksheets.Count итоговую сумму заказа после всех переносов ячеек в последнюю свободную строку в столбце G

Описал подробно,что нужно.
Надеюсь на вашу помощь, за материальное вознаграждение.

С уважением, Евгений

Ответить

СообщениеВсем, здравствуйте.
Хочу обратиться к Вам за помощью в написании макроса для Excel.

В одной книге содержится 2 вкладки. На одной (скрытой) последней вкладке таблица прайса со столбцами:

Арт Наименование Штрих-код Опт 1 Опт 2 Опт 3 Опт 4 Опт 5 Опт 6 Заказ Итого Опт 1 Итого Опт 2 Итого Опт 3 Итого Опт 4 Итого Опт 5 Итого Опт 6

И строки со значениями по этим столбцам.

Нам нужен макрос переноса данных с строки при условии если в этой строке в столбце "Заказ" значение <>0. Нужно перенести данные этой строки:
1) со столбца "Арт" в Worksheets.Count в ячейку "В17"
2) со столбца "Наименование" в Worksheets.Count в ячейку "С17"
3) со столбца "Штрих-код" в Worksheets.Count в ячейку "D17"
4) со столбца "Заказ" в Worksheets.Count в ячейку "Е17"

И так по всем позициям в прайсе (их около 3000), добавляя их ниже предыдущей добавленной.

Затем присвоить ценовую группу по каждой позиции сходя из итоговой суммы заказа при выполнении условий по одной из ценовых групп.

Вывести в Worksheets.Count итоговую сумму заказа после всех переносов ячеек в последнюю свободную строку в столбце G

Описал подробно,что нужно.
Надеюсь на вашу помощь, за материальное вознаграждение.

С уважением, Евгений

Автор - YaDNOVBA
Дата добавления - 27.02.2020 в 12:41

InExSu

Дата: Четверг, 27.02.2020, 17:11 | Сообщение № 2