Özet Tablo Veri Yenileme Sorunu

[ali28]

Tabloya veri giriyorum "verileri yenile" dediğimde tabloda göstermiyor:roll:

 

[Merhum İdris SERDAR]

Tabloya veri giriyorum "verileri yenile" dediğimde tabloda göstermiyor:roll:

Dinamik alan ile bir makro kullanılmıştır.

Yenile demenize kalmadan verileri girip, tablonun olduğu sayfaya geçince, tablo otomatik olarak güncelenecektir.

Dosyanız ekte.

.

 

[ali28]

Dinamik alan ile bir makro kullanılmıştır.

Yenile demenize kalmadan verileri girip, tablonun olduğu sayfaya geçince, tablo otomatik olarak güncelenecektir.

Dosyanız ekte.

.

Çok teşekkür ederim.

Nasıl yapıldığını kısaca anlatırsanız çok seviniriim...

 

[ziya]

Sn. Yurttaş merhaba,
Benzeri bir vba şöyle bir çalışma için yapılabilirmi. ali28'in örneğinden devam edersek.
-Sayfa1, Sayfa2 ve Sayfa 3 de verileri giriyoruz. Sayfa1 ve Sayfa2'de için pivot tablolarımız var ve tabloların herbiri ayrı sayfada .
-Pivot tablo sonuçlarından yararlanarak hazırladığımız bir veri sonuçları sayfamız var.
İlgili veri giriş sayfalarına veri girişlerinden sonra veri sonuçları sayfasına geçtiğimizde pivot tablolar güncelleşsin.

Örneğinizdeki kod zaten bu işi yapıyor diyorsanız, kod'u veri sayfalarına mı , yoksa p.tablo sayfalarınamı uygulamalıyım.
Selamlar,

 

[ali28]

Sn. Yurttaş merhaba,
Benzeri bir vba şöyle bir çalışma için yapılabilirmi. ali28'in örneğinden devam edersek.
-Sayfa1, Sayfa2 ve Sayfa 3 de verileri giriyoruz. Sayfa1 ve Sayfa2'de için pivot tablolarımız var ve tabloların herbiri ayrı sayfada .
-Pivot tablo sonuçlarından yararlanarak hazırladığımız bir veri sonuçları sayfamız var.
İlgili veri giriş sayfalarına veri girişlerinden sonra veri sonuçları sayfasına geçtiğimizde pivot tablolar güncelleşsin.
Selamlar,

Makro ile özet tablo olayını bir türlü anlayamadım:???:

 

[ziya]

Makro ile özet tablo olayını bir türlü anlayamadım:???:

Merhaba,
Sn. Yurttaşın eklediği örnekte veri yenilemeyi yapan vba kodu var. Sayfa1'i sağ tıklayın , kod görüntüle dediğinizde kod'u göreceksiniz.
Selamlar,

 

[ziya]

Merhaba,
Genelde son mesaj okunduğu ve benim sorum iki üst mesajda kaldığı için dikkat çekmedi.
Benzeri bir vba şöyle bir çalışma için yapılabilirmi. ali28'in örneğinden devam edersek.
-Sayfa1, Sayfa2 ve Sayfa 3 de verileri giriyoruz. Sayfa1 ve Sayfa2'de için pivot tablolarımız var ve tabloların herbiri ayrı sayfada .
-Pivot tablo sonuçlarından yararlanarak hazırladığımız bir veri sonuçları sayfamız var.
İlgili veri giriş sayfalarına veri girişlerinden sonra veri sonuçları sayfasına geçtiğimizde pivot tablolar güncelleşsin.

Örneğinizdeki kodu denedim, kısmen işlev görüyor. Veri sayfam ile p.tablo sayfam ayrı sayfalarda. Bu nedenle ben p.tablo sayfasına girmeden veri sonuçlarını topladığım sayfaya giriyorum ve p.tablo bu nedenle refresh olmuyor. P.tablo sayfasına girip çıkarsam oluyor. 2 ayrı sayfada P.Tablo olduğunu da belirtmeliyim.
Selamlar,

 

[Merhum İdris SERDAR]

Çok teşekkür ederim.

Nasıl yapıldığını kısaca anlatırsanız çok seviniriim...

Merhaba,
Genelde son mesaj okunduğu ve benim sorum iki üst mesajda kaldığı için dikkat çekmedi.
Benzeri bir vba şöyle bir çalışma için yapılabilirmi. ali28'in örneğinden devam edersek.
-Sayfa1, Sayfa2 ve Sayfa 3 de verileri giriyoruz. Sayfa1 ve Sayfa2'de için pivot tablolarımız var ve tabloların herbiri ayrı sayfada .
-Pivot tablo sonuçlarından yararlanarak hazırladığımız bir veri sonuçları sayfamız var.
İlgili veri giriş sayfalarına veri girişlerinden sonra veri sonuçları sayfasına geçtiğimizde pivot tablolar güncelleşsin.

Örneğinizdeki kodu denedim, kısmen işlev görüyor. Veri sayfam ile p.tablo sayfam ayrı sayfalarda. Bu nedenle ben p.tablo sayfasına girmeden veri sonuçlarını topladığım sayfaya giriyorum ve p.tablo bu nedenle refresh olmuyor. P.tablo sayfasına girip çıkarsam oluyor. 2 ayrı sayfada P.Tablo olduğunu da belirtmeliyim.
Selamlar,

Sorunuzu tam olarak anlamamakla birlikte; Örneği açıklarsam belki probleminizi çözebilirsiniz.

1. Insert / Name / Define ‘ın Refers to: bölümüne;

=OFFSET(Sayfa1!$A$1;0;0;COUNTA(Sayfa1!$A:$A);COUNTA(Sayfa1!$1:$1))

Formülünü yazarak Veri diye bir dinamik alan tanımladım. Yanıi Sayfa1’e veri girildiğinde tanımladığım alan o kadar genişlemiş oluyor.

Dinamik alan konusu için aşağıdaki linkte yer alan dosyayı inceleyin.

http://www.excel.web.tr/f60/dynamic-range-dinamik-alan-t26374.html

2. Veri olarak tanımladığım dinamik alanı Pivot Table- Özet Tablonun alan bölümüne yazdım. Böylelikle her veri girişinde tablo genişleyecek ve genişleyen tablo, tabloda herhangi bir değişiklik yapmadan girilen veri kapsanacaktır.

3. Ancak bu Özet Tablonun güncellenmesi için yeterli değil. Otomatik güncelleme için bir makroya gerek bulunmaktadır. Bu da:

Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Şeklindedir.

Bu makroyu da bir olaya bağlamam lazım. Burada uygun gördüğüm Worksheet nesnesinin Deactivaete olayıdır. Çünkü veriyi girdikten sonra tablonun olduğu sayfaya geçileceği için bu işlem uygundur.

Bu itibarla kodlar aşağıdaki şekilde olacaktır.


Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Duruma göre; Bu kodlar Worksheet nesnesinin

Private Sub Worksheet_Activate()


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)


Private Sub Worksheet_Calculate()


Private Sub Worksheet_Change(ByVal Target As Range)



Private Sub Worksheet_Deactivate()


Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Yazılabilir.


Ya da bir düğmeye bağlanabilir.



.

 

[ziya]

Sn Yurttaş
Teşekkür ederim.
Selamlar,

 

[ali28]

Arkadaşlar ben bu işi bir türlü anlayamadım:frown:

Verilen kodları yazıyorum olmuyor.

Ekteki tabloyu bir türlü beceremedim.

Bunu bana biri resimli olarak anlatırsa çok süper olur:biggrin:

 

[Merhum İdris SERDAR]

Arkadaşlar ben bu işi bir türlü anlayamadım:frown:

Verilen kodları yazıyorum olmuyor.

Ekteki tabloyu bir türlü beceremedim.

Bunu bana biri resimli olarak anlatırsa çok süper olur:biggrin:

Dosyanız ekte.

Çoğunu yapmışsınız zaten.

Özet Tablo üzerinde sağ klik yapıp, çıkan menüden geri gidip tablonun göreceği alana veri yazarsanız olur.

.

 

[ali28]

Dosyanız ekte.

çoğunu yapmışsınız zaten.

Özet Tabla üzerinde sağ klik yapıp, çıkan menüden geri gidip tablonun göreceği alana veri yazarsanız olur.

.

Çok Teşekkürler yurttask::

Nihayet anladım

 

[ali28]

Sayın yurttaş


Özet tablodaki verileri seçerken sütunlardan komple seçiyorum.

Tabloda boş sütunları da gösteriyor.

Bunları gizlemenin bir yolu var mı acaba?

 

[ali28]

Sayın yurttaş


Özet tablodaki verileri seçerken sütunlardan komple seçiyorum.

Tabloda boş satırları da gösteriyor.

Bunları gizlemenin bir yolu var mı acaba?

 

[Merhum İdris SERDAR]

Sayın yurttaş


Özet tablodaki verileri seçerken sütunlardan komple seçiyorum.

Tabloda boş satırları da gösteriyor.

Bunları gizlemenin bir yolu var mı acaba?

Özet tabloda gizlemek istediğiniz sütun üstende sağ klik ve Gizle deyin.

.

 

[safak19551]

pivot otomatik güncelleme.

veri sayfasından pivot tablosuna değilde başka bir sayfaya geçtiğinde pivot bilgileri güncellenebilirmi? pivot tablonun olduğu sayfa gizli olacak sayfa1 veri sayfasından sayfa3 e geçince pivot güncellenecek. sayfa3 te pivottan alınan sonuçlara göre ayrı hesaplamaların güncellenmesi mümkünmü

Sorunuzu tam olarak anlamamakla birlikte; Örneği açıklarsam belki probleminizi çözebilirsiniz.

1. Insert / Name / Define ‘ın Refers to: bölümüne;

=OFFSET(Sayfa1!$A$1;0;0;COUNTA(Sayfa1!$A:$A);COUNTA(Sayfa1!$1:$1))

Formülünü yazarak Veri diye bir dinamik alan tanımladım. Yanıi Sayfa1’e veri girildiğinde tanımladığım alan o kadar genişlemiş oluyor.

Dinamik alan konusu için aşağıdaki linkte yer alan dosyayı inceleyin.

http://www.excel.web.tr/f60/dynamic-range-dinamik-alan-t26374.html

2. Veri olarak tanımladığım dinamik alanı Pivot Table- Özet Tablonun alan bölümüne yazdım. Böylelikle her veri girişinde tablo genişleyecek ve genişleyen tablo, tabloda herhangi bir değişiklik yapmadan girilen veri kapsanacaktır.

3. Ancak bu Özet Tablonun güncellenmesi için yeterli değil. Otomatik güncelleme için bir makroya gerek bulunmaktadır. Bu da:

Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Şeklindedir.

Bu makroyu da bir olaya bağlamam lazım. Burada uygun gördüğüm Worksheet nesnesinin Deactivaete olayıdır. Çünkü veriyi girdikten sonra tablonun olduğu sayfaya geçileceği için bu işlem uygundur.

Bu itibarla kodlar aşağıdaki şekilde olacaktır.


Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Duruma göre; Bu kodlar Worksheet nesnesinin

Private Sub Worksheet_Activate()


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)


Private Sub Worksheet_Calculate()


Private Sub Worksheet_Change(ByVal Target As Range)



Private Sub Worksheet_Deactivate()


Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Yazılabilir.


Ya da bir düğmeye bağlanabilir.



.

 

[safak19551]

Yardımcı olacak kimse yokmu?

 

[Merhum İdris SERDAR]

veri sayfasından pivot tablosuna değilde başka bir sayfaya geçtiğinde pivot bilgileri güncellenebilirmi? pivot tablonun olduğu sayfa gizli olacak sayfa1 veri sayfasından sayfa3 e geçince pivot güncellenecek. sayfa3 te pivottan alınan sonuçlara göre ayrı hesaplamaların güncellenmesi mümkünmü

Olabilir.

Veri sayfasına veri girildikten sonra;

Bir makro ile PV'nin gizli olan sayfası açılır, PV güncellenir ve sonra PV sayfası gizlenir.

.

 

[comertkubi1]

Teşekkür

Teşekkürler faydalı bir anlatım olmuş...