Makro ile Oluşturulan PivotTable de hata mesajı

[akmes]

Merhaba,

Ekteki excel dosysını daha önce bu siteden bulmuştum.Kredi kartları ile ilgili taksit tutarlarını ay ay başka bir sayfaya aktarıp pivotTable ile hangi ay ne kadar ödeme tutarım var görebiliyoruz.Fakat Taksit Planını Hazırlar makrosuna basınca aşağıda kırmızı renkli kısımda hata verip PivotTable yi oluşturmuyor sebebi konusunda yardımınızı rica ediyorum.Ofis 2010 kullanıyorum.Yardımlarınıza şimdiden teşekkür ederim.

Sub tozetle()

Sheets("TaksitPlanı").Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TaksitPlanı!R1C1:R550C5").CreatePivotTable TableDestination:= _
"'[nail-taksitli-20060813.xls]TaksitPlanı'!R3C8", TableName:="PivotTable3", DefaultVersion _
:=xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable3").PivotFields("YIL")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("AY")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("kart-tur")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("taksit"), "TaksitToplamı", xlSum
Columns("J:W").Select
Range("J3").Activate
Selection.Style = "Comma"
Columns("J:W").EntireColumn.AutoFit
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False

Columns("D").Select
Selection.NumberFormat = "#,##0.00"
Columns("D").EntireColumn.AutoFit

Range("G1").Select

End Sub

 

[Muzaffer Ali]

"'[[COLOR="Red"]nail-taksitli-20060813.xls[/COLOR]][COLOR="RoyalBlue"]TaksitPlanı[/COLOR]'!R3C8", TableName:="PivotTable3", DefaultVersion

Kırmızı renkli yerde dosyanızın ismi, mavi renkli yerde sayfa isminin doğru yazılmış olması gerekmekte

 

[akmes]

"'[[COLOR="Red"]nail-taksitli-20060813.xls[/COLOR]][COLOR="RoyalBlue"]TaksitPlanı[/COLOR]'!R3C8", TableName:="PivotTable3", DefaultVersion

Kırmızı renkli yerde dosyanızın ismi, mavi renkli yerde sayfa isminin doğru yazılmış olması gerekmekte

Evet, doğru şimdi oldu.Çok teşekkür ederim.