Pivot Table Güncelleme

[leonadies]

Sayın üstadlar benim bir problemimde Pivot table güncelleme problemi. Forumdan bakarak aşağıdaki makroyu "Veri" isimli sekmeye uyguladım. Ancak bu makro sadece "Veri" sekmesine tıklayınca yenileme yapıyor ve ben bu sekmeyi gizli tutmak durumundayım. Kullanıcının bu sekme dışında tıkladığı "siparis" sekmesine tıklayınca o veri sekmesinde yer alan Pivot Table güncelleme yapmasını istiyorum.
Özetle bu makronun farklı bir sekmeye tıklandığında da gizli olan sekmede yenileme yapmasını istemekteyim.
Münkün müdür?

Private Sub Worksheet_Activate()
Dim pvt As PivotTable
For Each pvt In ActiveSheet.PivotTables
pvt.PivotCache.Refresh
Next pvt
End Sub

 

[Orion1]

deneyiniz.

Private Sub Worksheet_Activate()
Dim pvt As PivotTable
For Each sh In Worksheets
    sh.PivotTables.PivotCache.Refresh
Next pvt
End Sub

 

[leonadies]

Üstad olmadı
Compile Error hatası veriyor.
"Invalid Next Control variable reference" şeklinde

 

[Merhum İdris SERDAR]

.

Alternatif:

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

.

 

[Orion1]

Herhalde gizli sayfada çalışmadı.

 

[leonadies]

Herhalde gizli sayfada çalışmadı.

Tüm sekmelerde denedim üstad olmadı.

 

[Orion1]

önceki kodları silmeniz lazımdı.Sildinizmi?

 

[leonadies]

.

Alternatif:

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

.

Hocam tşk ederim. Sayenizde işlem tamam

 

[Orion1]

Ben soruyu yanlış anlamışım.
İdris bey olayı çözmüş.

 

[leonadies]

Ben soruyu yanlış anlamışım.
İdris bey olayı çözmüş.

Silmiştim kodları evet. Olsun üstad ilgine tşk ederim k::

Peki üstad ikinci bir soru sorsam ?

"Kaynak" sekmesi A sütununda "DIŞ ALIM" yazan hücreler var birde boş hücreler. Şimdi ben "Gorev" sekmesine "DIŞ ALIM" yazan hücrelerin karşsını (Yani B sutununda var olanlar) aynen yazdırmak istiyorum.Ancak bu tablo kendisini sürekli güncelleyebilmeli. Yani o boş hücrelerden birinede zaman içinde "DIŞ ALIM" yazılması durumunda "Gorev" sekmeside kendini hemen güncelleyecek..
Varmıdır yolu?
Veri gelişmiş filtre menüsü ile çok denedim ancak bir sefer yapıyorsun sonra kendini güncellemiyor.

 

[Orion1]

formül yazsanız olmuyormu?

 

[leonadies]

Ne tarz bir formül mesela? Gorev sekmesinde bir hücreye
=EĞER(KAYNAK!A1="DIŞ ALIM";KAYNAK!B2;"") yazsam yine aynı şey olucak boş hücrelerde Gorev sekmesinde olacak. Boş hücreler ve karşılığının kesinlikle bu sekmede yer almaması gerekiyor özetle. Kullanıcıları şaşırtabilir zira.