Здравствуйте! Помогите пожалуйста с группировками.
Есть обычный прайс-лист с группами товаров, их количеством и ценами. Передо мной стоит задача сделать красивый каталог с содержанием и дизайном в ворде. Но т.к. товар и цены постоянно меняются, а номенклатура достаточно велика... возник вопрос автоматизации.
В VBA не особо сильна, работать с переменными не умею, могу только записать макрос по действиям и немного подредактировать.
Для динамически обновляемого каталога этих товаров в Ворде придумала схему:
1. Копирование каждой группы/подгруппы на новый лист Excel с уже существующей и нужной мне шапкой,
2. В Ворде связала таблицу с группой товара в Excel, где она обновляется при изменении основной таблицы.
Написала небольшой макрос, перерыла весь инет.. проблема возникла с раскрытием отфильтрованной группы. Выполняется фильтр по подгруппе, остается только свернутая группа. Вручную разворачивать.. - совсем не то.. а потом надо копировать диапазон ячеек и вставлять их на другой лист.
В общем, пишу макрос, что у меня получилось..
Возможно, будут какие-то другие решения.. предлагайте) Спасибо!
Есть обычный прайс-лист с группами товаров, их количеством и ценами. Передо мной стоит задача сделать красивый каталог с содержанием и дизайном в ворде. Но т.к. товар и цены постоянно меняются, а номенклатура достаточно велика... возник вопрос автоматизации.
В VBA не особо сильна, работать с переменными не умею, могу только записать макрос по действиям и немного подредактировать.
Для динамически обновляемого каталога этих товаров в Ворде придумала схему:
1. Копирование каждой группы/подгруппы на новый лист Excel с уже существующей и нужной мне шапкой,
2. В Ворде связала таблицу с группой товара в Excel, где она обновляется при изменении основной таблицы.
Написала небольшой макрос, перерыла весь инет.. проблема возникла с раскрытием отфильтрованной группы. Выполняется фильтр по подгруппе, остается только свернутая группа. Вручную разворачивать.. - совсем не то.. а потом надо копировать диапазон ячеек и вставлять их на другой лист.
В общем, пишу макрос, что у меня получилось..
| Код |
|---|
Sub Макрос1()
ActiveSheet.Range("$A$1:$E$8497").AutoFilter Field:=1, Criteria1:= _
"Абразивный инструмент"
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTy peVisible).Copy
Sheets("Лист1").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TDSheet").Select
End Sub |
Возможно, будут какие-то другие решения.. предлагайте) Спасибо!
