Özet tablo yenileme.

[kaya41]

Merhaba.

Sql den veri çeken bir excell sayfamız ve bu sayfaya bağlı çalışan veri özet tablomuz var.

Bir buton ile önce sql sayfasını yenilemek ve bitiminde özet tabloyu yenilemek istiyorum.

Sql sayfasını yenilerken ekranın sol alt köşesinde dünya dönüyor malumunuz, dünyanın dönmesi bittikten yani sayfa yenilendikten sonra özet tabloyu yenileyecek bir koda ihtiyacım var.

yardımcı olan arkadaşlardan Allah razı olsun.

 

[Emir Hüseyin Çoban]

. . .

Özet tablo ve SQL sayfanız ayrı ayrı mı.

. . .

 

[alicimri]

SQL den gelen veriler Sayfa1 de Özet Tablo Sayfa2 da ise

Sheets("Sayfa1").QueryTables(1).Refresh BackgroundQuery:=False
DoEvents
Sheets("Sayfa2").PivotTables(1).PivotCache.Refresh

 

[kaya41]

. . .

Özet tablo ve SQL sayfanız ayrı ayrı mı.

. . .

Emir bey, Sayfa1 ve Sayfa2 de,

Ümidi kesmiştim umarım bir çözüm bulabilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Özet tablonun olduğu sayfanın kod bölümüne yapıştırın.
Tablo ismine göre isim kısmını güncelleyin.

Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("[COLOR="DarkRed"]PivotTable1[/COLOR]").PivotCache.Refresh
End Sub

. . .

 

[kaya41]

SQL den gelen veriler Sayfa1 de Özet Tablo Sayfa2 da ise

Sheets("Sayfa1").QueryTables(1).Refresh BackgroundQuery:=False
Sheets("Sayfa2").PivotTables(1).PivotCache.Refresh

Ali bey merhaba.
Verdiğiniz kodu bir module ekledim. veri kaynağını yeniliyor.
özet tabloyu yenilemeden hata veriyor.

Sheets("Sayfa1").QueryTables(1).Refresh BackgroundQuery:=False

kısmını sarıya boyuyor.
nerede yanlışlık yapıyorum acaba.

 

[kaya41]

. . .

Özet tablonun olduğu sayfanın kod bölümüne yapıştırın.
Tablo ismine göre isim kısmını güncelleyin.

Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("[COLOR="DarkRed"]PivotTable1[/COLOR]").PivotCache.Refresh
End Sub

. . .

Emir bey,
Amacınız ver kaynağının olduğu sayfadan yenileme işlemini yapıp özet tablonun olduğu sayfaya geri dönüldüğünde tabloyu yenilmek ise sonuç maalesef olumsuz,
yenileme işlemi tamamlanmadan tablonun olduğu sayfaya geri dönmüş ve erkenden kaynak güncellenmeden tabloyu yenilemiş oluyoruz.

 

[alicimri]

#3 deki mesajı "DoEvents" ekleyerek yeniledim. Dener misiniz.