Pivot tabloda Satır verilerini dizi içine alma

[tamer42]

Merhaba,
Ekli dosyada pivot sayfasında Pivot Tablo' da yer alan "Manager Name" sütunundaki verileri bir dizi içine nasıl alabiliriz?

Not: Pivot tablo dinamik olduğu için her güncellendiği zaman diziyi güncellemesi gerekmektedir?

Teşekkürler,
iyi Çalışmalar.

 

[tamer42]

Merhaba,
Ekli dosyada pivot sayfasında Pivot Tablo' da yer alan "Manager Name" sütunundaki verileri bir dizi içine nasıl alabiliriz?

Not: Pivot tablo dinamik olduğu için her güncellendiği zaman diziyi güncellemesi gerekmektedir?

Teşekkürler,
iyi Çalışmalar.

Arkadaşlar bu şekilde çözüm ürettim, alternatif çözümü olan olan arkadaş olursa öğrenmekten memmun olurum.

teşekkürler,
iyi akşamlar.

Sub itemThePivotTables()

Dim wb As Workbook, ws As Worksheet
Dim arr() As Variant, item As Variant
Dim pt As PivotTable, df As PivotField
Dim pi As PivotItem

Dim st As String

Set wb = ThisWorkbook

Set ws = wb.Sheets("pivot")

Set pt = ws.PivotTables("PivotTable2")

st = "Manager Full Name"

Set df = pt.PivotFields(st)
x = 0

For Each item In df.DataRange

    ReDim Preserve arr(x)
    arr(x) = item

x = x + 1

Next

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim My_Pivot As PivotField, My_Data As Variant
    
    Set My_Pivot = ActiveSheet.PivotTables("PivotTable2").PivotFields("Manager Full Name")
    
    With My_Pivot
        My_Data = Application.Transpose(.PivotFilters.Parent.DataRange.Areas.Item(1))
    End With
End Sub