Option Explicit
Private Sub Worksheet_Activate()
Dim k As Long, l As Long
Dim alan As PivotItem
k = 19
l = 17
Range("K19:K10000").ClearContents
For Each alan In Sheets("özet").PivotTables("PivotTable1").PivotFields("soyadı").PivotItems
Cells(k, 11) = alan.Name
k = k + 1
Next
For Each alan In Sheets("özet").PivotTables("PivotTable1").PivotFields("ismi").PivotItems
Cells(l, 12) = alan.Name
l = l + 1
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:C5]) Is Nothing Then
With Sheets("özet").PivotTables("PivotTable1")
With .PivotFields("soyadı")
.CurrentPage = "(Tümü)"
.CurrentPage = [C4].Value
End With
With .PivotFields("ismi")
.CurrentPage = "(Tümü)"
.CurrentPage = [C5].Value
End With
End With
End If
End Sub