pivot table macrodaki kod hatası

[amelie]

Arkadaşlar merhaba,
makro ile bir pivot table oluşturmak istiyorum ve makro ile kaydımı gerçeekleştiriyorum ancak
kodu tekrar çalıştırdığım zaman hata veriyor...
Nedeni hakkında yardımlarınızı rica ediyorum.
Saygılarımla,

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet2!C1:C9").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("DOVIZ")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("MENU")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("BORC"), "Count of BORC", xlCount
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("ALACAK"), "Count of ALACAK", xlCount
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").Format xlReport6
Range("D5").Select

 

[amelie]

Arkadaşlar 1 saatir uğraşıyordum ama kısmet buraya yazıncaymış demek ki
sorunu çözdüm kaynak veri alanını ( SourceData:= "Sheet2!C1:C9") ) değiştirince sorun çözüldü.
Ancak bu da enterasan tabi ben kaydederken ( hem de defalarca) hep A:I aralığı seçtim ama neden c1:c9 aralığı yaptı her seferinde anlamış değilim..? elle düzeltince oldu oysa ki!!
İlgili arkadaşlara teşekkür ediyorum.
Saygılarımla,

 

[GOKHANKOKSAL1980]

Makroda pıvot nasıl yapılır?

Sub Makro1()
'
' Makro1 Makro
' REK
'

'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"196698LERDEN!R1C1:R1168C12", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Sayfa2!R3C1", TableName:="Özet Tablo 3" _
, DefaultVersion:=xlPivotTableVersion12
Sheets("Sayfa2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Özet Tablo 3").PivotFields("Pers.no.")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Özet Tablo 3").AddDataField ActiveSheet.PivotTables( _
"Özet Tablo 3").PivotFields(" Tutar (UP2)"), _
"Toplam Tutar (UP2)", xlSum
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:2").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("D10").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\GKoksal\Desktop\196698LERDEN.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Range("H11").Select
ActiveWindow.Close
Range("G16").Select
Application.Run "PERSONAL.XLSB!Makro1"
Range("I13").Select
ActiveWindow.Close
Range("J87").Select
ActiveWindow.Close
Range("I5").Select
ActiveSheet.PasteSpecial Format:="Metin", Link:=False, DisplayAsIcon:= _
False
Range("D17").Select
Sheets("196698LERDEN").Select
Range("C11").Select
Application.Run "PERSONAL.XLSB!Makro1"
Range("G14").Select
Sheets("Sayfa1").Select
Selection.ClearContents
Range("E24").Select
Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.Delete
Range("F29").Select
Sheets("Sayfa2").Select
Range("A2:B582").Select
ActiveWindow.SmallScroll Down:=-561
Range("B4").Select
Columns("B:B").ColumnWidth = 26
Range("B4").Select
Sheets("Sayfa2").Select
Range("E9").Select
End Sub