+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formülle En Küçük Tarihleri Çekme (/konu-formulle-en-kucuk-tarihleri-cekme.html)
RE: Formülle En Küçük Tarihleri Çekme - berduş - 10/11/2020
Iyi çalışmalar
Konuyu cevaplanmışlara taşıyorum ozaman.
RE: Formülle En Küçük Tarihleri Çekme - berduş - 11/11/2020
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 FunctionPrivate Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets("Sayfa1").PivotTables("PivotTable1").PivotCache.Refresh
Application.EnableEvents = True
End Sub