InputBox'ta PivotTable'ın Listesini Gösterme

[meka5121]

Merhaba,

InputBox içinde sayfaların birindeki PivotTable'daki Listbox'ı göstermek mümkün müdür?

InputBox içinde bir seçim yapıp, onu da bir değişkene atamak istiyorum.

Sonra o değişkeni String olarak farklı bir amaçla kullanacağım.

Aşağıda PivotTable'da kullanmak istediğim alan mevcut, bunu InputBox'ta listeleyemiyorum.

Sheets("Açık Defect - Grup").PivotTables("PivotTable3") _
.PivotFields("BG_PROJECT")

Sub My_macro()
Dim project_name As String
project_name = InputBox(Prompt:="ALM'de Yer Alan Proje Adını Giriniz", Title:="Proje Adı")

ActiveWorkbook.Sheets("RawDefectData").ListObjects("Table_ExternalData_1").Range.AutoFilter Field:=3, Criteria1:=project_name

ActiveWorkbook.Sheets("Defect Çözüm").ListObjects("Table_ExternalData_15").Range.AutoFilter Field:=1, Criteria1:=project_name

ActiveWorkbook.Sheets("Açık Defect").ListObjects("Table_ExternalData_13").Range.AutoFilter Field:=1, Criteria1:=project_name


Sheets("Defect Durumu").PivotTables("PivotTable1") _
.PivotFields("BG_PROJECT").CurrentPage = project_name

Sheets("Defect Grafik").PivotTables("PivotTable2") _
.PivotFields("BG_PROJECT").CurrentPage = project_name

Sheets("Açık Defect - Grup").PivotTables("PivotTable3") _
.PivotFields("BG_PROJECT").CurrentPage = project_name

End Sub

Eğer o da olmuyorsa, Pivot Table'da belirttiğim alanı kullanıcıya ayrı bir yerden seçtirip, değişkene nasıl atayabilirim?

 

[Ömer BARAN]

Merhaba.

Açtığınız aşağıdaki konu sayfasına cevap yazdım.

Sayfadaki Filtreli Listedeki Bir Değeri Diğer Sayfalarda da Seçtirme
.