Pivot Tablo Silme

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

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


4 + 3 =