Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Makro Kaydedici Ãle Pivot Alma
Arkadaslar Merhaba
Makro Kaydedici İle Pivot Almak İStiyorum
*********************
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"VERI!R1C1:R39C5").CreatePivotTable TableDestination:=Range("I1"), TableName _
:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ADET")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ÜRÜN")
.Orientation = xlRowField
.Position = 1
End With
Application.CommandBars("PivotTable").Visible = False
********************
data uzunluğ artıkca devamlı aralığı değiştirmek zorunda Kalıyorum.
Nasıl Bir ÃEy Yapmam Lazım.
Yada Onereceğiniz ETopla ( Genel Toplamlarını ) başka nasıl alabilirim.
İlgili Dosya Ektedir.
Saygılar.
Arkadaslar Merhaba
Makro Kaydedici İle Pivot Almak İStiyorum
*********************
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"VERI!R1C1:R39C5").CreatePivotTable TableDestination:=Range("I1"), TableName _
:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ADET")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ÜRÜN")
.Orientation = xlRowField
.Position = 1
End With
Application.CommandBars("PivotTable").Visible = False
********************
data uzunluğ artıkca devamlı aralığı değiştirmek zorunda Kalıyorum.
Nasıl Bir ÃEy Yapmam Lazım.
Yada Onereceğiniz ETopla ( Genel Toplamlarını ) başka nasıl alabilirim.
İlgili Dosya Ektedir.
Saygılar.