Pivot Table Kümülatif satış Tarih Aralığı

[drumitgunay]

Merhaba Herkese iyi forumlar.

Arkadaşlar Sql Analysis olarak küpden veri çekiyorum verileri çektiğinizde otomatik pivot olmaktadır.

Bu pivottan tarih aralığını manuel olarak elimle seçebiliyorum ve refreshlediğimde veriler geliyor ancak benim bunu makro veya bir kombinasyon ile

Otomatik yazdığım tarihi almasını istiyorum örnek A hücresine yazdığım tarihi pivottaki tarih aralığına nasıl bağlayabilirim veya =Bugün olarak belirlediğim bir hücreyi
pivotun tarihine bağlamam lazım mümkünmüdür böyle birşey yardımlarınızı bekliyorum.

İyi Çalışmalar.

 

[Merhum İdris SERDAR]

.

Buraya bakınız.

http://www.excelgurusu.com/pivot-table-ozet-tablo/

Buradaki tariharalığınagöreözet dosyasını inceleyiniz.

.

 

[hamitcan]

Alternatif;
G4 hücresine tarih yazacağınızı varsaydım. Daha sonra kendinize göre değiştirmelisiniz. Ayrıca kod içindeki tarih isimli alanı da kendinize göre değiştirmelisiniz.

Sub Makro1()
Tarih = Replace(Format([g4], "m/d/yyyy"), ".", "/")
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("tarih")
        For Each Pi In .PivotItems
           Pi.Visible = True
        Next

        For Each Pi In .PivotItems
        If Pi <> Tarih Then
                   Pi.Visible = False
        Else
                   Pi.Visible = True
        End If
        Next
    End With
End Sub

 

[drumitgunay]

İdris hocam sizinki benimkiyle farklı bişey ben direk pivotun içerisinde filtre vericem ve doğru yanlış gibi birşeyle mümkün değil bu veri çok çünkü

 

[drumitgunay]

hamitcan Hocam sizin paylaştığınız işimi görür gibi ancak (Pivottable sınıfının PivotFileds özelliği alınamıyor)
diyor hücreyi ve tarihin bulunduğu hücreyi isimlendirdim ona göre değiştirdim yine aynı hatayı veriyor bu macro ile bir örnek atma imkanınız varmıdır acaba

 

[hamitcan]

Dosyayı ekliyorum.

 

[drumitgunay]

Hocam benimki direk bağlantıdan cektiği için veriyi olmuyor malesef

 

[drumitgunay]

yokmu yardımcı olabilecek

 

[drumitgunay]

halen cözümlenmedi kimse bilmiyormu acaba

 

[hamitcan]

Veri Kaynağı kısmı olmadığı için deneme yapamıyorum hata veriyor. Yalnız Tarih alanı sizde filtre kısmında görünmekte ama size gönderdiğim dosyada tarih alanını bu kısma taşıyıp denedim sorunsuz çalıştı.

 

[drumitgunay]

örneği atarmısın hocam teşekkürler bakayım bi

 

[drumitgunay]

güncel

 

[hamitcan]

Örnek dosya ekte.

 

[Korhan Ayhan]

Merhaba,

@hamitcan beyin eklediği örnek belki size çözüm olabilir.

Ek olarak sizin eklediğiniz dosyada ben tarh bölümündeki filtre butnuna tıkladığımda hata alıyorum. Bu sebeple inceleme şansımız kalmıyor.

Öneri;

Makro kaydet ile siz bu işlemi manuel yapın. Oluşan makro kodunu forumda paylaşın. Bakalım nasıl bir kod oluşuyor. Eğer müdahale edilebilecek birşeyse yardımcı olmaya çalışalım.

 

[Korhan Ayhan]

Merhaba,

Üyemizin bilgisayarına uzak bağlantı ile bağlandım.

Bir önceki mesajımda tarif ettiğim gibi makro kaydet yöntemini kullandım. Oluşan kod bir-iki rötuşla aşağıdaki gibidir. Bir butona tanımlanıp kullanılabilir.

Sub Pivot_Tarihe_Gore_Filtre()
    Application.ScreenUpdating = False
    Tarih = Format(Range("G3"), "yyyy-mm-dd") & "T00:00:00"
    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[TakvimUL].[Yıl -  Hafta -  Gun].[Yıl]").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[TakvimUL].[Yıl -  Hafta -  Gun].[Yıl]").CurrentPageName = _
        "[TakvimUL].[Yıl -  Hafta -  Gun].[Gun].&[" & Tarih & "]"
    Application.ScreenUpdating = True
End Sub

 

[drumitgunay]

Hocam ilginize nasıl teşekkür etsem bilemiyorum çok saolun kodlar arkadaşların verdiğinden cok farklıydı çok güzel çalışıyor

 

[drumitgunay]

Hocam peki bu koda 2 tarih aralığı vermemiz mümkünmüdür

 

[Korhan Ayhan]

Dediğim gibi makro kaydet yöntemini kullanarak denemeler yapabilirsiniz.

 

[drumitgunay]

Hocam tekrardan ilginize çok teşekkür ederim rötüş dedğiniz gibi sadece hücreye bağlamak kalıyor galiba onunkinide sizin kodlara bakarak cözdüm zaten ve 2 tarih aralığını yaptım ve Çalıştı tekrardan cok saolun iyi forumlar

 

[Korhan Ayhan]

Anladığım kadarıyla tarihleri tek tek seçtirmeye izin veriyor. Bu durumda seçtiğiniz tarih aralığını döngüye alıp gerekli array filtre dizisini oluşturup TARİH değişkenine atayıp çözüme gidebilirsiniz.