таблица на изображении имеет обзор за 12 месяцев, в данном случае с 2018 по февраль 2019 года. И в следующем месяце таблица будет обновлена, и в результате она начнется с 2018 по 2019 февраль, с 2018 по апрель - до 2018 года.Март 2019 года и так далее.В настоящее время таблица обновляется вручную каждый месяц.Учитывая текущий месяц, мне придется вернуться и отфильтровать данные за предыдущие месяцы вплоть до месяца, предшествующего текущему месяцу.Как получить автоматическое обновление, чтобы фильтры месяца предыдущих месяцев менялись, когда макрос изменяет столбец в процессе обновления таблицы?Пока что макрос ниже позволяет мне двигаться из этого диапазона (C14: N19), но, как вы увидите, фильтр жестко запрограммирован, а не динамичен.Любая помощь будет высоко оценена
Sub LUUUP()
Dim i As Long i = 0 For x = 1 To 12 i = i + 1
If x = 1 Then y = "C"
If x = 2 Then y = "D"
If x = 3 Then y = "E"
If x = 4 Then y = "F"
If x = 5 Then y = "G"
If x = 6 Then y = "H"
If x = 7 Then y = "I"
If x = 8 Then y = "J"
If x = 9 Then y = "K"
If x = 10 Then y = "L"
If x = 11 Then y = "M"
If x = 12 Then y = "N"
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=12, Criteria1:= _
xlFilterLastMonth, Operator:=xlFilterDynamic
Range("C1").Copy Sheets("feuil1").Select
Range(y & "14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next x End Sub