добрый день:
у меня есть код ниже:
Sub pvtfilttest()
On Error Resume Next
Dim dt As String
dt = Sheets("A").Range("D1").Value
With ActiveSheet.PivotTables("PivotTable6").PivotFields("[Time].[Month Name].[Month Name]")
.ClearAllFilters
.PivotFilters.Add Type:=xlCaptionEquals, Value1:=dt
End With
End Sub
where Range("D1") is August or dt = August.
Выше кода выполняется, но почему-то все поля в фильтре названия месяца выбраны, а не только в августе.
где я иду не так?