10/11/2020, 00:10
11/11/2020, 13:41
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
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 koduPrivate Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets("Sayfa1").PivotTables("PivotTable1").PivotCache.Refresh
Application.EnableEvents = True
End Sub