Pivot Table’ın Kaynak Verisini Değiştirmek – 2

Pivot Table’ın Kaynak Verisini Değiştirmek – 2

Sheet1, Sheet2 ve Sheet3′ te yer alan veriler için:

alan1 =Sheet1!$A$1:$B$54

alan2 =Sheet2!$A$1:$B$35

alan3 =Sheet3!$A$1:$B$32

olarak alan tanımlaması yapılmıştır.

Açılır kutuya bağlı olan:

Sub kaynakveri()

With ActiveSheet.Shapes(Application.Caller).ControlFormat

    ActiveSheet.PivotTables(“PivotTable1″).PivotTableWizard SourceType:=xlDatabase, SourceData:= _

    .List(.Value)

End With

End Sub

makro kodları ile her değişiklikte Pivot Table – Özet Tablonun kaynak verisi değişir.

piv2

Dosya:

Pivot-table kynakverisi değişimi2

 

You may also like...

Bir Cevap Yazın

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

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>