Pivot Hakkında Yardım

[onermes]

Merhaba,

Aşağıdaki gibi bir makrom var durum kolonunda bulunan veriler değişken o yüzdem makronun hiç bir şey seçmeden sadece benim seçtiklerim verileri toplamasını istiyorum en altaki TATİLDE, İŞTE, EVDE gibi değerleri aynı anda nasıl seçtirebilirim



Sheets.Add

ActiveSheet.Name = "Data_Pivot"

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sayfa1!R1C1:R4C3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Data_Pivot!R3C1", TableName:="Özet Tablo 1", DefaultVersion _
:=xlPivotTableVersion12
Sheets("Data_Pivot").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("ADI SOYADI")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("DURUMU")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Özet Tablo 1").AddDataField ActiveSheet.PivotTables( _
"Özet Tablo 1").PivotFields("ADET"), "Toplam ADET", xlSum
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("DURUMU").ClearAllFilters
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("DURUMU"). _
EnableMultiplePageItems = True
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("DURUMU").CurrentPage = _
"TATİLTE"

End Sub