Страницы: 1
RSS
задание макросом фильтра сводной таблицы
 
пробую макросом задать значение фильтра сводной таблицы, но не получается...  
ActiveSheet.PivotTables("PivotTable3").PivotFields("склад").CurrentPage = Sheets("отчет").Range("G4")  
 
в чем здесь может быть ошибка ?
 
Главная ошибка в отсутствии файла с примером. А так их может быть несколько, начиная с неправильного значения в ячейке Sheets("отчет").Range("G4")  
;)
KL
 
исправляюсь. Файл прилагается.
 
Попробуйте указать свойство Value для Sheets("отчет").Range("G4"):  
 
Sub test()  
   ActiveSheet.PivotTables("PivotTable1").PivotFields("склад").CurrentPage = _  
       Sheets("отчет").Range("G4").Value  
End Sub
KL
 
Спасибо зпт получилось.
Страницы: 1
Наверх