Сводная таблица

[riniks17]

Добрый день друзья.
Накипело Есть сводная. По дабл клику на поле открывается новый, несвязааный ни с какими данными лист (допустим лист 3) со всеми значениями для этого поля. Значениями, как в исходной таблице. Как привязать этот лист к исходному? Т.е. изменяя значения в листе 3 изменить эти значения в исходной таблице. Может код написать? Но лист каждый раз с новым названием. И потом его удалить желательно. Подскажите, гда порыться?

[Volodshan]

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

... Может код написать?.. Подскажите, гда порыться?

Как вариант - Фильтр исходных в сводной

[riniks17]

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

Как вариант - Фильтр исходных в сводной

Не имей 100 рублей.... Спасибо друг. Вставил код. Просит отладки, но это то, что я искал. Уже есть где покопаться. Если уже занималс, то не работают выделенные строки:

Sub FilterPivot()
Dim pt As PivotTable

Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Set pt = ActiveCell.PivotTable
Set rSource = Application.Evaluate(Application.Co nvertFormula(pt.SourceData, xlR1C1, xlA1))
rSource.EntireRow.Hidden = False
nCols = rSource.Columns.Count
Selection.ShowDetail = True
Set rDrill = ActiveSheet.UsedRange
Set shDrill = ActiveSheet
DrillLastRow = shDrill.Range("A1").End(xlDown).Row
For i = nCols To 1 Step -1
formulatxt = formulatxt & "RC[-" & i & "]&"
Next i
formulatxt = Left(formulatxt, Len(formulatxt) - 1)
shDrill.Cells(2, nCols + 1).Resize(DrillLastRow - 1, 1).FormulaR1C1 = "=" & formulatxt

For j = 2 To rSource.Rows.Count
contxt = ""
For i = 1 To nCols
contxt = contxt & rSource.Cells(j, i).Value
Next i
If WorksheetFunction.CountIf(shDrill.C ells(2, nCols + 1).Resize(DrillLastRow - 1, 1), contxt) = 0 Then
rSource.Cells(j, 1).EntireRow.Hidden = True
End If
Next j

shDrill.Delete
rSource.Parent.Activate

Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Sub ShowAllData()
ActiveSheet.Rows.Hidden = False
End Sub

Если нет, то буду копаться.
В любом случае спасибо.