özet tablo makro...

[samuelsaw]

copy işlemi yapılacak sayfadaki tablo iptal edilip; copy sonrasında yeni oluşturulan sayfa için pivot tablo oluşturma işlemi copy makrosunun sonuna eklemek istiyorum...yardımcı olan arkadaşlara teşekkür ederim..dosyada açıkama yanlışlığını düzelttim...

 

[samuelsaw]

açıklamalarda yanlışlık vardı düzelltim...

 

[Zeki Gürsoy]

Sub COPY()
Dim NewName As String, pvt As PivotTable
    
    NewName = Sheets("COPY-CLEAN").Range("j1").Value
    
    Sheets("COPY-CLEAN").COPY Before:=Sheets("COPY-CLEAN")

    ActiveSheet.Name = NewName
    'ActiveSheet.DrawingObjects.Delete
    
    Set pvt = Sheets(NewName).PivotTables(1)
    
    pvt.SourceData = Replace(pvt.SourceData, "COPY-CLEAN", NewName)
    pvt.PivotCache.Refresh
End Sub

 

[samuelsaw]

Sub COPY()
Dim NewName As String, pvt As PivotTable
    
    NewName = Sheets("COPY-CLEAN").Range("j1").Value
    
    Sheets("COPY-CLEAN").COPY Before:=Sheets("COPY-CLEAN")

    ActiveSheet.Name = NewName
    'ActiveSheet.DrawingObjects.Delete
    
    Set pvt = Sheets(NewName).PivotTables(1)
    
    pvt.SourceData = Replace(pvt.SourceData, "COPY-CLEAN", NewName)
    pvt.PivotCache.Refresh
End Sub

zeki bey verdiğiniz kod hata veriyor....dosyaya uyarlayabilirmsiniz....

 

[samuelsaw]

kusura bakmayın.....hata yok...yardımınız için teşekkür ederim...