Автофильтр сводной таблицы

[ElenaAC]

Всем здравствуйте!
Помогите, пожалуйста, чайнику...
Имеется таблица с данными по отгрузкам продукции клиентам.
Ежедневно заносятся данные по новым отгрузкам за предыдущий день и поступившим оплатам за продукцию.
Что хотелось бы получить: после занесения данных на лист "despatches_RUS" открыть "Лист1" и чтобы там при открытии автоматически бы обновились данные в двух сводных таблицах: в сводной таблице1 нужно вывести значения "меньше даты в ячейке А1 (т.е. меньше СЕГОДНЯ), а в сводной таблице2 нужно вывести только значения для сегодняшней даты (тоже привязать к ячейке А1).
Т.е. я открываю лист и вижу уже обновленные значения, без ручного обновления таблиц и снятия/удаления "галочек" в фильтрах.
Можно такое сделать?
Файл с примером в приложении.

[Igor1961]

Уберите из файла с примером все ненужные листы и покажите из каких столбцов нужно вытянуть данные. Из существующего примера не очень понятно.

[Elixi]

не надo ничегo убирать;
тем, ктo рабoтает сo свoдными таблицами всё пoнятнo;
пoмoч, к сoжалению, не в сoстoянии;
чтoбы свoдные таблици автoматически oбнoвлялись при oткрытии листа Лист1,
этo мoжнo сделать макрoсoм, дoстатoчнo дoбавить в Лист1 кoд:

Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("Свoданя таблица1").PivotCache.Refresh
    ActiveSheet.PivotTables("Свoданя таблица2").PivotCache.Refresh
End Sub

[ElenaAC]

Сообщение от Elixi

этo мoжнo сделать макрoсoм

Спасибо, эту часть я решила... Но фильтры приходится выставлять вручную... Проблема еще в том, что не все знают, как работать со сводными таблицами. Для этого и хотела по максимуму все автоматизировать.

[Igor1961]

Не уверен что правильно понял чего Вы хотите, сделал как понял. Проверяйте:

[ElenaAC]

Сообщение от Igor1961

Не уверен что правильно понял чего Вы хотите, сделал как понял. Проверяйте:

Спасибо большое, попробовала. Почти нормально... Только вот суммы по клиентам не объединяются, а выводятся каждая отдельно, получается очень много строк и не видно общего итога по каждому клиенту, это не информативно... Нужен именно свод - по клиенту 1 такая-то сумма задолженности и такая-то сумма ожидаемой сегодня оплаты, по клиенту 2 такая-то. Можно так сделать?

[Igor1961]

Уважаемая Елена, про клиентов Вы почему-то ничего не говорили раньше, и в файле в Ваших сводных нет поля с клиентами (возможно просто не поставили галочку для добавления поля). Покажите в файле что и в каком виде Вы хотите увидеть в результате (схематически: в этой ячейке - клиент, в этой - сумма и т.п.) Это насчет информативности, которой Вы хотите: выборка должна быть сначала по клиентам и после по "PAYER"-ам или сначала по "PAYER"-ам а потом по клиентам?

[ElenaAC]

Игорь, добрый день.
Я прошу прощения, наверное Вас ввели в заблуждение иностранные обозначения в таблице.
Мне нужны данные с группировкой по столбцу "PAYER" (по англ. плательщик, т.е. покупатель, клиент - я это имела ввиду, а столбец "Client" тут не нужен).
Так вот, Ваш макрос выводит строчки по PAYER без группировки, т.е. к примеру суммы по PAYER1 выводятся каждая отдельно, а мне нужны общие итоги. Сколько всего задолженность по PAYER1, по PAYER2 и т.д., сколько ожидать сегодня по каждому плательщику.
Прилагаю два изображения - "как получается" и "как надо".

[Igor1961]

Так вроде работает, проверяйте:

Sub Svodnaya()
    Dim i&, j&, lr1&, lr2&, s1#, s2#, sum1#, sum2#, d As Date
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
'Очищаем старые данные если есть:
    Worksheets("Rezultat").Range("A4:E" & Cells(Rows.Count, 1).End(xlUp).Row + 10).ClearContents
    
'Для помещения в "А1" сегодняшней даты раскомментируйте следующую строку:
'   Worksheets("Rezultat").Cells(1, 1).Value=Date
    d = Worksheets("Rezultat").Cells(1, 1).Value 
    
'Создаем доп. лист и на нем список всех клиентов:
    Sheets.Add.Name = "Dopolnitelny"
    Worksheets("despatches_RUB").Select
    Worksheets("despatches_RUB").Columns("E:E").Select
    Selection.Copy
    Worksheets("Dopolnitelny").Select
    Worksheets("Dopolnitelny").Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Worksheets("Dopolnitelny").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row + 10).RemoveDuplicates Columns:=1, Header:=xlNo
    
'Считаем суммы:
For j = 3 To Worksheets("Dopolnitelny").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("despatches_RUB").Select
    s1 = 0
    s2 = 0
    
 For i = 4 To Cells(Rows.Count, 3).End(xlUp).Row
  If Cells(i, 13).Value < d And Worksheets("Dopolnitelny").Cells(j, 1).Value = _
                                Worksheets("despatches_RUB").Cells(i, 5).Value Then
     s1 = s1 + Worksheets("despatches_RUB").Cells(i, 12).Value
  End If
  If Cells(i, 13).Value = d And Worksheets("Dopolnitelny").Cells(j, 1).Value = _
                                Worksheets("despatches_RUB").Cells(i, 5).Value Then
     s2 = s2 + Worksheets("despatches_RUB").Cells(i, 12).Value
  End If
 Next i
 
    lr1 = Worksheets("Rezultat").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Rezultat").Cells(lr1 + 1, 1).Value = Worksheets("Dopolnitelny").Cells(j, 1).Value
    Worksheets("Rezultat").Cells(lr1 + 1, 2).Value = s1
    sum1 = sum1 + Worksheets("Rezultat").Cells(lr1 + 1, 2).Value
    
    lr2 = Worksheets("Rezultat").Cells(Rows.Count, 4).End(xlUp).Row
    Worksheets("Rezultat").Cells(lr2 + 1, 4).Value = Worksheets("Dopolnitelny").Cells(j, 1).Value
    Worksheets("Rezultat").Cells(lr2 + 1, 5).Value = s2
    sum2 = sum2 + Worksheets("Rezultat").Cells(lr1 + 1, 5).Value
Next j

     Worksheets("Rezultat").Activate
With Worksheets("Rezultat")
    .Cells(lr1 + 2, 1).Value = "ОБЩИЙ ИТОГ:"
    .Cells(lr2 + 2, 4).Value = "ОБЩИЙ ИТОГ:"
    .Cells(lr1 + 2, 2).Value = sum1
    .Cells(lr2 + 2, 5).Value = sum2
End With
   
For i = Worksheets("Rezultat").Cells(Rows.Count, 4).End(xlUp).Row To 4 Step -1
 If Cells(i, 5).Value = 0 Then
    Range("D" & i & ":E" & i).Delete Shift:=xlUp
 End If
Next i
   
   Worksheets("Dopolnitelny").Delete  'удаляем доп. лист
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub

[Igor1961]

Файл забыл прикрепить