Merhabalar,
Forumda arattım benzer birşey bulamayınca buraya yazma ihtiyacı duydum.
Elimde 5000 satırlık bir tablo var ve buna bağlı bir pivot table. Bu tabloya zaman zaman yeni veriler girilecek ve tablo olarak tanımladığım için pivot table kendini otamatik güncelliyor fakat asıl istediğim şey pivot table'ın bilgileri sadece visible cells'ten alması yani ben tabloyu filtrelediğim zaman pivot table'ı filtrede görünen hücrelerden dinamik olarak alsın.
İnternette biraz araştırma aşağıdaki VBA'yı buldum fakat uygulayamadım.
Sheet2.UsedRange.ClearContents
Sheet1.Range("A1:B8").SpecialCells(xlCellTypeVisible).Copy (Sheet2.Cells(1, 1))
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Sheet2.UsedRange, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Sheet3!R3C1", TableName:="PivotTable3", DefaultVersion _
:=xlPivotTableVersion14
Forumda arattım benzer birşey bulamayınca buraya yazma ihtiyacı duydum.
Elimde 5000 satırlık bir tablo var ve buna bağlı bir pivot table. Bu tabloya zaman zaman yeni veriler girilecek ve tablo olarak tanımladığım için pivot table kendini otamatik güncelliyor fakat asıl istediğim şey pivot table'ın bilgileri sadece visible cells'ten alması yani ben tabloyu filtrelediğim zaman pivot table'ı filtrede görünen hücrelerden dinamik olarak alsın.
İnternette biraz araştırma aşağıdaki VBA'yı buldum fakat uygulayamadım.
Sheet2.UsedRange.ClearContents
Sheet1.Range("A1:B8").SpecialCells(xlCellTypeVisible).Copy (Sheet2.Cells(1, 1))
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Sheet2.UsedRange, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Sheet3!R3C1", TableName:="PivotTable3", DefaultVersion _
:=xlPivotTableVersion14
