В запросе Power Query указать столбец фильтрации знач в яч.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » В запросе Power Query указать столбец фильтрации знач в яч. (Макросы/Sub)

Gjlhzl

Дата: Пятница, 10.02.2023, 10:00 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

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

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

День добрый, как подправить макрос что бы имя столбца фильтра бралось из значения ячейки, а так же
подправить в макросе что бы имя листа задавалось то же по значению ячейки потом лист переносился в файл и ему назначалось то же имя

[vba]

Код

ActiveWorkbook.Queries.Add Name:=cell.Value, Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Источник = Excel.CurrentWorkbook(){[Name=""таблПродажи""]}[Content]," & Chr(13) & "" & Chr(10) & " #""Измененный тип"" = Table.TransformColumnTypes(Источник,{{""Категория"", type text}, {""Наименование"", type text}, {""Город"", type text}, {""Менеджер"", type text}, {""Дата сделки"", type datetime}, {""Стоимость"", type number}})," & Chr(13) & "" & Chr(10) & " #""Строки с примененным фильтром"" = Table.Se" & _
"lectRows(#""Измененный тип"", each ([Город] = """ & cell.Value & """))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Строки с примененным фильтром"""

[/vba]
...................
менять как понимаю нужно здесь
[vba]

Код

each ([Город
ActiveSheet.Name =cell.Value

[/vba]

К сообщению приложен файл: 111111.xlsb (130.7 Kb)

Сообщение отредактировал Gjlhzl - Пятница, 10.02.2023, 10:02

Ответить

Страница 1 из 1
1