contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
5 Haz 2012

Pivot Tablo Silme

//
Yorumlar0
/

Makroyla Pivot Tablo Silme

Makroyla calismalarinizdaki tum pivot tablolari silebilmek icin asagidaki kodlari kullanabilirsiniz, gerekli aciklamalari kodlar icerisine yazdim, Tum sayfalarda silme islemi icin For Each kullaniyoruz klasik 🙂

Daha sonra kodlarda da goreceginiz uzere silme islemini gerceklestiriyoruz, inceleyiniz, iyi calisalar.

Sub Ozet_Tablo_Sil()

    Dim Pt As PivotTable
    Dim Ws As Worksheet

'Tum Sayfalarda Islem
    For Each Ws In ActiveWorkbook.Worksheets
    Worksheets(Ws.Name).Select

'Ozet Tablolarda Islem
    For Each Pt In Ws.PivotTables

'Ozet Tablolari Silme
    Pt.PivotSelect "", xlDataAndLabel, True
    Selection.Delete Shift:=xlToLeft

        Next Pt
    Next Ws
End Sub

Pivot Tablo Silme

Cevap bırakın


3 + 6 =