2003 ile 2010 macro kayıt da farklılık

Katılım
28 Kasım 2007
Mesajlar
919
Excel Vers. ve Dili
Office 2010 İngilizce
Merhaba arkadaşlar,

Sürekli olarak yaptığım bir pivot table için 2010 bir makra kayıt ediyorum tekrar çalıştırdığımda hata eriyor.Aynı şeyi 2003 de yaptığımda tekrar çalıştırdığım problemsiz çalışıyor. F8 ile kontrol ettiğimde hata verdiği alan aşağıda kodlara baktığımda sanki 2010 kayıt ettiğinda sheet1 diye bir Destination yaratıyor ve tekrarınd ada sheet1 olmadığı için hataya düşüyor diye anlıyorum nacizane. Bu problemi 2010 kullanıcısı olarak neasıl çözmemi önerirsiniz?
2010
Kod:
Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "YASLANDIRMA_DATABASE!R1C1:R9995C19", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion10
    Sheets("Sheet1").Select
2003
Kod:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "YASLANDIRMA_DATABASE!R1C1:R9995C19").CreatePivotTable TableDestination:="", _
        TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
        Range("B4").Select
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,376
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Emin değilim; 2003 versiyonu dosyayı 2010'da uyumluluk modunda açarsanız 2003 makrosu stabil çalışmaya devam edebilir.
 
Katılım
28 Kasım 2007
Mesajlar
919
Excel Vers. ve Dili
Office 2010 İngilizce
Excel 97-2003 Workbook olarak save ettim zaten, bir ihtimal böyle kurtarırım diye ama olmadı
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
2003 ile 2007 kütüphanesi birbirinden biraz farklı. Bu yüzden her iki versiyon için bu kodları ayrı ayrı yazmalısınız. Kodların her iki versiyonda çalışması için, Excel'in versiyon numaralarından faydalanabilirsiniz. Versiyon numarasını bulmak için
Kod:
msgbox Application.Version
kod satırını kullanabilirsiniz.
 
Üst