Огромное Спасибо вам Дмитрий! Помогло!)

ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""Сумма поступлений"",R3C1)"

не получается, потому что могут меняться строки и столбцы, делая R3C1 нерелеватной ссылкой.

Среднее по полю Сумма поступлений Банк
Месяц        Банк 1       Банк 2 (пусто) Общий итог
2021-10 350,0 350,0
2021-11 100,0 100,0
2021-12 715,0 715,0
2022-11        286,7 286,7
(пусто)
Общий итог 286,7        388,3               354,4



Вот, допустим, что банки могут быть дополнительно добавлены, плюс даты добавлены в зависимости от исходных данных, но сводная все равно сгенерирует общий итог. Можно ли как-то макрос сделать, чтобы на этот итог ссылаться? или даже формула. В данном примере, 354,4 (среднее от 286,7 и 388,3).

Добрый день, дорогие форумчане!

Помогите пожалуйста мне сделать это как-нибудь, пока что из идей только как-то через PowerQuery побаловаться, но скилла не хватает...

Собственно файлик, долго загружался прошу прощения...

Добрый день, я никак не могу придумать как вшить в формулу срок, по месяцам, типо если кредит выдан на 2 месяца 01.03.22, то по идее янв и фев никаких поступлений, затем мар и апр поступления будут и в мае и далее нет поступлений ибо кредит баста. Если янв и фев - легко сделать, типо дата выдачи больше чем дата начала месяца, то вот как вшить в эту модель по месяцам добавленные месяцы, то бишь чтобы оплата была только мар и апр и потом всё. Если кому-то интересно подобное, помогите пожалуйста... Буду рад и благодарен любой помощи!

товарищи, просто обозначил их как 2 и профильтровал на 1, в итоге получилось. Если у вас тем не менее есть более достойный способ, то огласите пожалуйста, спасибо!

Нашел какое-то решение на форуме, попытаюсь садаптировать к моему решению;

Не работает... Видимо из-за того, что фильтр overlapping происходит.


Sub Группа_4005_тест()

'
' Группа_4005 Макрос
' РКД; Сумма>=1млн; СчД и СчК 4* кроме 423* 474* или Сч 520 521 522
'

   ActiveSheet.Range("A:U").AutoFilter Field:=17, Criteria1:= _
       ">=1000000"
   ActiveSheet.Range("A:V").AutoFilter Field:=5, Criteria1:= _
       "<>423*", Operator:=xlAnd, Criteria2:="<>474*"
   ActiveSheet.Range("A:V").AutoFilter Field:=9, Criteria1:= _
       "<>423*", Operator:=xlAnd, Criteria2:="<>474*"

On Error Resume Next
Columns(22).ClearContents
lLastRow = Cells(Rows.Count, 5).End(xlUp).Row
For n = 2 To lLastRow
   If Cells(n, 5) Like "4*" Or _
      Cells(n, 5) Like "520*" Or _
      Cells(n, 5) Like "521*" Or _
      Cells(n, 5) Like "522*" Then
           Cells(n, 22) = 1
   End If
Next n
   ActiveSheet.Range("A:V").AutoFilter Field:=22, Criteria1:=1
   
Columns(23).ClearContents
2 LastRow = Cells(Rows.Count, 9).End(xlUp).Row
For n = 2 To lLastRow
   If Cells(n, 5) Like "4*" Or _
      Cells(n, 5) Like "520*" Or _
      Cells(n, 5) Like "521*" Or _
      Cells(n, 5) Like "522*" Then
           Cells(n, 23) = 1
   End If
Next n
   ActiveSheet.Range("A:V").AutoFilter Field:=22, Criteria1:=1
   


End Sub

Добрый день дорогие форумчане!

Помогите пожалуйста, какую команду мне можно ввести, чтобы отфильтровать данные в столбце с помощью макроса, выбирая счета начинающиеся с 4, кроме тех, кто начинается с 423 и 474, а также сюда приплести 520*, 521* и 522*. Я вот создал дополнительный столбец для последних трех чисел фильтрации, но не могу пока что придумать, что делать с 4 кроме 423 и 474. Уверен, что есть какая-то функция, оператор, которая может отделить по критерию. Мои знания VBA пока ничего мне не подсказывают, лазаю на форумах для знаний и прошу помощи у более опытных. Выборка достаточно объемная, более 200к строк, просто пару примеров выдал в файле для представления.

Мои отчаянные попытки:

On Error Resume Next
ActiveSheet.ShowAllData
Columns(22).ClearContents
lLastRow = Cells(Rows.Count, 5).End(xlUp).Row
For n = 2 To lLastRow
   If Cells(n, 5) Like "520*" Or _
      Cells(n, 5) Like "521*" Or _
      Cells(n, 5) Like "522*" Then
           Cells(n, 22) = 1
   End If
Next n
   ActiveSheet.Range("A:V").AutoFilter Field:=22, Criteria1:=1

evgeniygeo, Дмитрий(The_Prist) Щербаков, Ігор Гончаренко, New, - огромное вам всем спасибо! <3  

в файле "тест" хватает выборки данных же вроде.

Евгений большое спасибо! Возьму себе на вооружение в случае чего)

Пока что один из рабочих вариантов у Вас

Дмитрий спасибо за Ваш ответ, да, я в курсе про расширенный поиск; я как-то его обходил в следствии того, что нужно было что-то дополнительно создавать. У меня проверка тут аудиторская в компании и каждый день нужно палить и сравнивать выгрузки счетов, вот, в общем-то у меня этих проводок там куча кучная, плюс я спецом хотел создать макросы, чтобы фильтровать ими дальнейшие файлы (все дни), благо столбцы сходятся и условия сходятся. Файл тест, лишь для примера несколько выборок сделал.  

Написал вот так, но не работает (


Sub OO()

Dim iArray As Variant

iArray = Array("405*", "406*", "407*")
Range("I1", Range("I" & Rows.Count).End(xlUp)).AutoFilter 1, iArray, xlFilterValues, , 0


End Sub

Евгений, как текст, я добавил для теста ещё и другие

Евгений, Большое Вам спасибо за ссылку, очень полезная статья оказалась, буду пользоваться в дальнейшем, но к сожалению не помогла; Такая же проблема у меня с массивами произошла, я бы хотел чтобы все номера которые начинались с 405, 406 и 407 смогли отобразиться. В Автофильтре это невозможно, как я понял из-за того, что только один оператор xlOr может быть использован; поэтому попробовал тоже через массив пойти,но нужно вводить точные значения, типо 4078826987424, 405879521234, а не 407* и 405* exempli gratia, ибо выдает ошибку.  

  ActiveSheet.Range("$A$1:$U$152506").AutoFilter Field:=9, Criteria1:=Array("405*", "406*", "407*") _
       , Operator:=xlFilterValues

попробовал через массив, но всё равно туго(

Добрый день, помогите пожалуйста дописать

Sub Группа_1008()
'
' Группа_1008 Макрос
' Экв>=1млн; СчД 20202; СчК 405, 406, 407; Назн УСТАВН
'

'
   ActiveSheet.Range("$A$1:$U$152506").AutoFilter Field:=5, Criteria1:= _
       "=20202*", Operator:=xlAnd
   ActiveSheet.Range("$A$1:$U$152506").AutoFilter Field:=9, Criteria1:="=405*" _
       , Operator:=xlOr, Criteria2:="=406*" _
       , Operator:=xlOr, Criteria2:="=407*"
   ActiveWindow.SmallScroll ToRight:=8
   ActiveSheet.Range("$A$1:$U$152506").AutoFilter Field:=17, Criteria1:= _
       ">=1000000", Operator:=xlAnd
   ActiveWindow.SmallScroll ToRight:=3
   ActiveSheet.Range("$A$1:$U$152506").AutoFilter Field:=18, Criteria1:= _
       "=*уставн*", Operator:=xlAnd
End Sub

В общем нужно добавить 407 еще, я вот не знаю как я могу добавить множество фильтров в данный код

Все понял, спасибо большое!  

все равно не выдает результат  

Извините, хотел приложить, почему-то не загрузилось с первого раза.

Помогите

В общем, я как-то только в работе редактирую сначала сортировкой, сначала заменяю в дробной части точки на запятые и оставляю их нетронутыми. Далее у меня два вида данных с работой: те, что месяцем впереди и те, что числом впереди. С ними работаю в PQ, далее просто возвращаю отPQшные результаты в сортировку и сортирую по вспомогательному столбцу созданному вначале (1-99). Но может быть есть более продуктивный способ, чем тот, что описал я...

Всем здравствуйте, помогите пожалуйста преобразовать столбец при выгрузки с даты на процент чтобы в будущем мне как-то легче/лучше было работать с подобной выгрузкой.  

Грубо говоря, чтобы результат был такой:


Январь 2021 г. - 139 252 167,33
Февраль 2021 г. - 77 454 355,37
и т.д.

в идеале суммировать результаты по месяцам банков: Банк АБВ №1 и Банк АБВ №2, против других отдельных банков по месяцам;

не затрагивая особо базу данных, ибо это лишь выдержка, там большой объем данных...

Помогите пожалуйста!