pivot tabloda veri kaynağı güncelleme

[metelikus]

merhaba
ismi sayfa1 olan sayfadaki pivot tablo sayfa1 deki tablodan veri alıyor.
sayfa 1 i kopyalayıp yeniden adlandırıyorum sayfa2 olarak. sayfa 2 deki pivot tablo sayfa 1 den vir almaya devam ediyor.
her seferinde veri kaynağını değiştir seçeneğine gidip sayfa ismini elle değiştirerek işimi görüyorum.
sayfayı yeniden adlandırdığımda pivot tablo otomatik olarak adlandirilan sayfadan veriyi nasıl alabilir.

 

[hüseyintok]

Merhaba Makro ile yapabilirsiniz

Sub Pivot()
Dim ws As Worksheet
Dim pt As PivotTable
Dim dataRange As Range

Set ws = ThisWorkbook.Sheets("Sayfa2")
Set dataRange = ws.Range("A1100") ' Veri aralığını ihtiyacınıza göre ayarla
Set pt = ws.PivotTables(1) ' Eğer birden fazla pivot tablo varsa, doğru olanı seç
pt.ChangePivotCache ThisWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=dataRange.Address(True, True, xlA1, True))

pt.RefreshTable
End Sub

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak... Eğer her sayfada Pivot Table olmak zorunda değilse...

Çalışmanıza bir rapor sayfası ekleyiniz.
A1 hücresine veri doğrulama-liste yöntemiyle sayfa isimlerinizi listeleyiniz.
Bu hücreden yapacağınız seçime göre bir alanda ilgili sayfadaki verileri alacak şekilde formülle verileri aktarınız.

Bu işlem için en basit haliyle aşağıdaki formülü kullanabilirsiniz. Bu formül size A1 hücresindeki sayfanın A1 hücresindeki değeri verecektir. Bu formülü sğa ve alta doğru ihtiyacınız kadar sürüklerseniz verileri aktarmış olursunuz. Bu işlem için farklı formüller kullanılabilir...

=DOLAYLI("'"&$A$1&"'!"&ADRES(SATIR(A1);SÜTUN(A1)))

Sonra bu sayfada oluşturacağınız Pivot Table için bu kaynağı başvuru alanı olarak tanıtabilirsiniz.

A1 hücresinden sayfa adını değiştirdiğinzde formül sayesinde verilerde değişeceği için Pivot Table doğru verilerin özetini size gösterecektir.

Bu sayede dosya boyutuda biraz olsun rahatlayacaktır.

 

[metelikus]

H

Merhaba,

Alternatif olarak... Eğer her sayfada Pivot Table olmak zorunda değilse...

Çalışmanıza bir rapor sayfası ekleyiniz.
A1 hücresine veri doğrulama-liste yöntemiyle sayfa isimlerinizi listeleyiniz.
Bu hücreden yapacağınız seçime göre bir alanda ilgili sayfadaki verileri alacak şekilde formülle verileri aktarınız.

Bu işlem için en basit haliyle aşağıdaki formülü kullanabilirsiniz. Bu formül size A1 hücresindeki sayfanın A1 hücresindeki değeri verecektir. Bu formülü sğa ve alta doğru ihtiyacınız kadar sürüklerseniz verileri aktarmış olursunuz. Bu işlem için farklı formüller kullanılabilir...

=DOLAYLI("'"&$A$1&"'!"&ADRES(SATIR(A1);SÜTUN(A1)))

Sonra bu sayfada oluşturacağınız Pivot Table için bu kaynağı başvuru alanı olarak tanıtabilirsiniz.

A1 hücresinden sayfa adını değiştirdiğinzde formül sayesinde verilerde değişeceği için Pivot Table doru verilerin özetini size gösterecektir.

Bu sayede dosya boyutuda biraz olsun rahatlayacaktır.

her sayfada pivot olmak zorunda malesef. sayfaları klonlayarak ilerliyorum. ve her sayfa o pivot tabloyla kopyalanaıyor

 

[metelikus]

Merhaba Makro ile yapabilirsiniz

Sub Pivot()
Dim ws As Worksheet
Dim pt As PivotTable
Dim dataRange As Range

Set ws = ThisWorkbook.Sheets("Sayfa2")
Set dataRange = ws.Range("A1100") ' Veri aralığını ihtiyacınıza göre ayarla
Set pt = ws.PivotTables(1) ' Eğer birden fazla pivot tablo varsa, doğru olanı seç
pt.ChangePivotCache ThisWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=dataRange.Address(True, True, xlA1, True))

pt.RefreshTable
End Sub

makrosuz bir çözüm yolu arıyorum .yeşekkürler cevabınız için