Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Отфильтровать значения в некоторых столбцах и передать в другой файл
 
#1
16.07.2019 16:40:10
Напримир, у меня есть данные из отчетов, несколько десяток столбцов. И среди них нужные мне столбцы (шапки) <N бал. акк> ... <Остаток ОД> <в т.ч ОД%.>.
В столбце <N бал. акк> есть значение которые нужно по одтельности фильтровать (1401, 1411, 1417, 6126, 6177).  При каждом фильтре <N бал. акк> выходят присущиеся значение <Остаток ОД> <в т.ч ОД%.>. Мне надо через формулу
Код
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;W2:W253581)
написать МАКРОС для автоматизации. После чего макрос должен сам определять
Код
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;W2:W253581)
для отдельного <N бал. акк>(1401, 1411, 1417, 6126, 6177)
Буду благодарен за подсказку
 
 
 
#2
17.07.2019 10:31:04
Если правильно поняла задачу, то, как вариант, создать список уникальных N бал акк. (кстати, в приложенном файле не нашла столбец с таким названием). Туда подтянуть через CУММЕСЛИ суммы. В файле, куда надо подтянуть данные запустить такой макрос:

Код
Sub Macro2()
 Workbooks.Open Filename:= _
 "C:\Users\username\Desktop\Planeta Excel\сверка.xlsx"
 Windows("Другой файл.xlsm").Activate
 Range("B2").Select
 ActiveCell.FormulaR1C1 = _
 "=сверка.xlsx!Table1[@[Остаток ОД (в валюте кредита)]]"
 Selection.AutoFill Destination:=Range("B2:B5")
 Range("B2:B5").Select
 Windows("сверка.xlsx").Close
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
 SkipBlanks _
 :=False, Transpose:=False
 End Sub

В приложении: файл Сверка - это там, где таблица; файл Другой - это куда тянем.

Изменено: turbidgirl - 17.07.2019 11:29:42
 
 
 
Страницы: 1
Наверх