makro ile pivot table tarih filtresi

[fkalelinet]

makro ile pivot table tarih filtresi (ÇÖZÜLDÜ)

sql veri pivot tabloya geliyor. tarih kısmında filtre var.
elle değiştiriyorum normal çalışıyor dün bugün yada eşittir vs.
bir sayfama buton atadım ve dün bugün olarak isimlendirdim.
dün'e baslınca dün makrosu ile pivot tablo tarih kısmında istediğim filitrelemeyi yapacak. dünün tarihini filtreleyecek.
bugüne basınca bugün makro ile pivot tablo tarih kısmını bugün olarak filtreleyecek.

normalde çalışıyor manuel yapılınca.
bunu makro kaydet ile kaydettim . ancak çalıştırdığımda 1004 hatası alıyor ve hatalı satırı işaretliyor yerli yabancı sitelerde araştırdım ancak çözemedim.
yardımcı olabilir misiniz?

 

[Baggwell]

Pivot makrosu ile bende epey uğraşmıştım,
Örnek dosya nerede ?

 

[fkalelinet]

dosyam çok büyük 16mb. ve hem klasördeki txtden hemde sql veri tabanından veriler çekiyor. onlarca makro var içinde bu haliyle sql veri tabanını bulamayınca sıkINtı oluyor. yine de. ekledim buraya.

http://www.dosya.tc/server35/sq2whE/DENEME.rar.html

 

[fkalelinet]

pivot tablo tarih alanı filitresi
sadece dünkü kayıtlar

Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("154DK").PivotTables("154")
PvtTbl.ClearAllFilters
PvtTbl.PivotFields("TS").PivotFilters.Add Type:=xlDateYesterday

sadece bugün kayıtları

Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("154DK").PivotTables("154")
PvtTbl.ClearAllFilters
PvtTbl.PivotFields("TS").PivotFilters.Add Type:=xlDateToday

pivot tabloda daha bir çok filitreyi macro ile yapabilmek için kaynaklar örnek kodlar.

http://msdn.microsoft.com/en-us/library/office/ff193582(v=office.15).aspx

http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=150:excel-pivot-tables-filter-data-items-values-a-dates-using-vba&catid=79&Itemid=475

http://www.mrexcel.com/forum/excel-questions/392962-visual-basic-applications-manipulate-pivot-table-report-filter-2.html

http://www.contextures.com/excelpivottablereportfiltervba.html

siteleri kaynak olarak alınmıştır.