Копирование группы товаров на новый лист, написание макроса

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
bliskovka_
Сообщения: 1
Зарегистрирован: 22 мар 2017, 17:41

22 мар 2017, 17:56

Здравствуйте! Помогите пожалуйста с группировками.
Есть обычный прайс-лист с группами товаров, их количеством и ценами. Передо мной стоит задача сделать красивый каталог с содержанием и дизайном в ворде. Но т.к. товар и цены постоянно меняются, а номенклатура достаточно велика... возник вопрос автоматизации.
В VBA не особо сильна, работать с переменными не умею, могу только записать макрос по действиям и немного подредактировать.
Для динамически обновляемого каталога этих товаров в Ворде придумала схему:
1. Копирование каждой группы/подгруппы на новый лист Excel с уже существующей и нужной мне шапкой,
2. В Ворде связала таблицу с группой товара в Excel, где она обновляется при изменении основной таблицы.
Написала небольшой макрос, перерыла весь инет.. проблема возникла с раскрытием отфильтрованной группы. Выполняется фильтр по подгруппе, остается только свернутая группа. Вручную разворачивать.. - совсем не то.. а потом надо копировать диапазон ячеек и вставлять их на другой лист.
В общем, пишу макрос, что у меня получилось..

Sub Макрос1()
'
' Макрос1 Макрос
'
ActiveSheet.Range("$A$1:$E$8497").AutoFilter Field:=1, Criteria1:= _
"Абразивный инструмент"

ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy

Sheets("Лист1").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("TDSheet").Select

End Sub
Ответить