Create Pivot Table with Excel VBA

[Yasser Fathi Albanna]

السلام عليكم ورحمة الله وبركاته

أتمنى أيفيد أحد

Sub GetPiv() 'Excel VBA to Create a Pivot Table.
    Dim PTCache As PivotCache
    Dim Pt As PivotTable

    

      For Each Pt In ActiveSheet.PivotTables 'Checks and deletes any pivot tables.

        Pt.TableRange2.Clear

      Next Pt

 

    Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion)
    Set Pt=ActiveSheet.PivotTables.Add(PTCache, [G10])
 

    Pt.PivotFields("Desc").Orientation=xlColumnField

    Pt.PivotFields("Colour").Orientation=xlRowField

    Pt.PivotFields("Book").Orientation=xlDataField

    Pt.PivotFields("Market").Orientation=xlPageField

End Sub

 

Sub GetPiv2() 'Excel VBA create Pivot table in new worksheet.

    Dim PTCache As PivotCache

    Dim Pt As PivotTable

    Dim ws As Worksheet

    

    Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion)

    Set ws=Worksheets.Add

    Set Pt=ws.PivotTables.Add(PTCache, [A10])

    

    Pt.PivotFields("Desc").Orientation=xlColumnField

    Pt.PivotFields("Colour").Orientation=xlRowField

    Pt.PivotFields("Book").Orientation=xlDataField

    Pt.PivotFields("Market").Orientation=xlPageField

End Sub

 

Create Pivot Table with Excel VBA.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي ياسر على موضوعاتك المميزة

 

[Yasser Fathi Albanna]

نورتنى بوجودك أخى الحبيب أ / ياسر خليل

تقبل خالص تحياتى وتقديرى لشخصكم الكريم

[محمود نعيم]

مشكور اخي الكريم ارجو كود لعمل تحديث لتقرير PivotTable في ظل وجود حماية للصفحة منعا للعبث بالتقرير وشكرا