Iyi çalışmalar
Konuyu cevaplanmışlara taşıyorum ozaman.

bu da excelin kendi pivot tablosu
tarihe çevirmek için 1 tane (E sütunu tarihe çevrilmiş alan dilerseniz gizleyebilirsiniz), pivotu güncellemek için de 1 tane fonksiyon kullandım
dilerim işinize yarar
tarihe çevirme fonksiyonu

Function TrhCevir(Trh As String) As Double



Dim TekKod() As String

Dim Trh2() As String

Dim Zmn() As String



Trh = Trim(Trh)

TekKod = Split(Trh)

Trh2 = Split(TekKod(0), "-")

Zmn = Split(TekKod(1), ".")

        If TekKod(UBound(TekKod)) = "PM" And Zmn(0) <> 12 Then Zmn(0) = Zmn(0) + 12



Trh2(1) = UCase(Trh2(1))

result = Switch(Trh2(1) = "JAN", 1, Trh2(1) = "FEB", 2, Trh2(1) = "MAR", 3, Trh2(1) = "APR", 4, Trh2(1) = "MAY", 5, Trh2(1) = "JUN", 6, _

                Trh2(1) = "JUL", 7, Trh2(1) = "AUG", 8, Trh2(1) = "SEP", 9, Trh2(1) = "OCT", 10, Trh2(1) = "NOV", 11, Trh2(1) = "DEC", 12)



Trh2(1) = result

ZmnDbl = CDate(Trh2(0) & "." & Trh2(1) & "." & "20" & Trh2(2)) + TimeValue(Zmn(0) & ":" & Zmn(1) & ":" & Zmn(2))



TrhCevir = CDbl(ZmnDbl)

End Function

Pivot tablo güncelleme kodu

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    Sheets("Sayfa1").PivotTables("PivotTable1").PivotCache.Refresh

    Application.EnableEvents = True

End Sub