- Katılım
- 16 Ocak 2019
- Mesajlar
- 51
- Excel Vers. ve Dili
- Microsoft Office 2013 (Türkçe)
Merhaba;
Sql'den çalışan bir tablom var aşağıdaki kodlar ile 2 tarih aralığını almak istiyorum.
Kodu çalıştırdığımda sadece G3 ve G4'de belirlediğim tarihleri alıyor yani
01.06.2019 - 23.06.2019 dediğimde sadece bu 2 tarihi alıyor ben ise 1 ile 23 aralığında bulunan tüm tarihleri almak istiyorum.
Şimdiden teşekkürler.
Sql'den çalışan bir tablom var aşağıdaki kodlar ile 2 tarih aralığını almak istiyorum.
Kodu çalıştırdığımda sadece G3 ve G4'de belirlediğim tarihleri alıyor yani
01.06.2019 - 23.06.2019 dediğimde sadece bu 2 tarihi alıyor ben ise 1 ile 23 aralığında bulunan tüm tarihleri almak istiyorum.
Şimdiden teşekkürler.
Kod:
Sub tar()
ActiveSheet.PivotTables("PivotTable1").CubeFields(39).EnableMultiplePageItems _
= True
Tarih = Format(Range("G3"), "yyyy-mm-dd") & "T00:00:00"
Tarih2 = Format(Range("G4"), "yyyy-mm-dd") & "T00:00:00"
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[TakvimUL].[Yıl - Hafta - Gun].[Yıl]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[TakvimUL].[Yıl - Hafta - Gun].[Hafta]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[TakvimUL].[Yıl - Hafta - Gun].[Gun]").VisibleItemsList = Array( _
"[TakvimUL].[Yıl - Hafta - Gun].[Gun].&[" & Tarih & "]", _
"[TakvimUL].[Yıl - Hafta - Gun].[Gun].&[" & Tarih2 & "]")
End Sub
