Advanced Filtering ve Dilimleyici (Slicer) Sorunu

Katılım
7 Nisan 2020
Mesajlar
1
Excel Vers. ve Dili
Office 365 Türkçe
Merhabalar,

Elimde düzgün bir şekilde oluşturulmuş bir tablo var. Bu tablodan pivot table oluşturuyor ve bu pivot tablodan da dilimleyiciler oluşturuyorum.

https://www.contextures.com/exceladvancedfilterslicers.html

Şu kaynakta anlatıldığı üzere kriterler oluşturuyorum ve herhangi bir filter olmadığı durumlar için de tüm veriyi göstertiyorum.

Sub GetDataForSlicersSel()
Dim wsPF As Worksheet
Dim wsSD As Worksheet
Dim wsOP As Worksheet

Set wsPF = Sheets("Pivot_Filters")
Set wsSD = Sheets("SalesData")
Set wsOP = Sheets("Output")

wsSD.Range("Sales_Data[#All]").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=wsPF.Range("CritSlicers"), _
CopyToRange:=wsOP.Range("ExtractSlicers"), _
Unique:=False
End Sub

Şu kod ile de bir buton yardımıyla Dilimleyicide filtrelediğim verilerin aşağıda ExtractSlicers olarak range ini belirlediğim bölgeye yerleşmesini istiyorum. Ancak bir türlü beceremedim.

Asıl veri tablomda örnek veriyorum 10 sütun var, ben bunların 5 i için dilimleyici yapmak istiyorum fakat output olarak görüntülemek istediğim veriler arasında filterladığım veriler haricinde veriler de olsun istiyorum. Bilmiyorum anlatabildim mi :) Örnek dosya gönderebilirim.

Nihai durumda butonu çalıştırdığımda "Run-time error 1004" hatası veriyor bazen de hiçbir hata vermiyor ancak verileri getirmiyor.
 
Üst