Soru Pivot Tablo 3 soru

[NIGRA]

Oldu abi teşekkür ederim.

 

[NIGRA]

Deneyiniz.

Private Sub Worksheet_Activate()
    Dim pvt As PivotTable
 
    Sheets("Grafik").Unprotect Password:=12345
 
    For Each pvt In ActiveSheet.PivotTables
        pvt.PivotCache.Refresh
    Next pvt
 
    Sheets("Grafik").Protect Password:=12345, AllowUsingPivotTables:=True
End Sub

Abi bu grafik sayfasına 3 tane daha grafik ekledim. Toplam 5 oldu. Grafik sayfasına tıklayınca içerik bi önce bembeyaz geliyor sonra grafikler geliyor. Bunu nasıl engelleyebilirim var mı bir yolu? Yani amacım direk gelmesi.

 

[Korhan Ayhan]

Ekran hareketlerini pasif yapmak belki işe yarayabilir.

Deneyiniz.

Private Sub Worksheet_Activate()
    Dim pvt As PivotTable
    
    Application.ScreenUpdating = False
    
    Sheets("Grafik").Unprotect Password:=12345
    
    For Each pvt In ActiveSheet.PivotTables
        pvt.PivotCache.Refresh
    Next pvt
    
    Sheets("Grafik").Protect Password:=12345, AllowUsingPivotTables:=True

    Application.ScreenUpdating = True
End Sub

 

[NIGRA]

Ekran hareketlerini pasif yapmak belki işe yarayabilir.

Deneyiniz.

Private Sub Worksheet_Activate()
    Dim pvt As PivotTable
   
    Application.ScreenUpdating = False
   
    Sheets("Grafik").Unprotect Password:=12345
   
    For Each pvt In ActiveSheet.PivotTables
        pvt.PivotCache.Refresh
    Next pvt
   
    Sheets("Grafik").Protect Password:=12345, AllowUsingPivotTables:=True

    Application.ScreenUpdating = True
End Sub

Kesinlikle fark etti. Yine yapıyor ama 1 kez sadece ve çok daha hızlı. Teşekkürler abi

 

[NIGRA]

Ekran hareketlerini pasif yapmak belki işe yarayabilir.

Deneyiniz.

Private Sub Worksheet_Activate()
    Dim pvt As PivotTable
   
    Application.ScreenUpdating = False
   
    Sheets("Grafik").Unprotect Password:=12345
   
    For Each pvt In ActiveSheet.PivotTables
        pvt.PivotCache.Refresh
    Next pvt
   
    Sheets("Grafik").Protect Password:=12345, AllowUsingPivotTables:=True

    Application.ScreenUpdating = True
End Sub

abi bu grafiklerin olduğu sayfa dışında hiç bir sayfada koruma yok su hatayı neden alırım?

 

[Korhan Ayhan]

Bu uyarıyı ne yaparken alıyorsunuz?

 

[NIGRA]

Bu uyarıyı ne yaparken alıyorsunuz?

dosyayı kapatıp actıgımda

 

[Korhan Ayhan]

Dosya açılışında pivot tablolarınız otomatik güncelleniyor sanırım. Uyarıya göre birden çok pivot tablonuz aynı kaynağa başvuruyor gibi görünüyor.

Örnek dosya olmayınca böyle hataların çözümünü aynı sorunu yaşamadığımız sürece ben öngöremiyorum.

 

[NIGRA]

Dosya açılışında pivot tablolarınız otomatik güncelleniyor sanırım. Uyarıya göre birden çok pivot tablonuz aynı kaynağa başvuruyor gibi görünüyor.

Örnek dosya olmayınca böyle hataların çözümünü aynı sorunu yaşamadığımız sürece ben öngöremiyorum.

tamam abi hallettim pivot tablo seçeneklerinde kapanışta güncelle tikliymiş diğer sayfadan taşıdığım da öyle kalmış. Onu kapatınca oldu. Teşekkürler abi

 

[NIGRA]

Dosya açılışında pivot tablolarınız otomatik güncelleniyor sanırım. Uyarıya göre birden çok pivot tablonuz aynı kaynağa başvuruyor gibi görünüyor.

Örnek dosya olmayınca böyle hataların çözümünü aynı sorunu yaşamadığımız sürece ben öngöremiyorum.

Abi,

Private Sub Worksheet_Activate()
    Dim pvt As PivotTable
   
    Application.ScreenUpdating = False
   
    Sheets("Grafik").Unprotect Password:=1923
   
    For Each pvt In ActiveSheet.PivotTables
        pvt.PivotCache.Refresh
    Next pvt
   
    Sheets("Grafik").Protect Password:=1923, AllowUsingPivotTables:=True

    Application.ScreenUpdating = True
End Sub

yazdığın bu kodu command butona nasıl uyarlayabilirim?

 

[Korhan Ayhan]

Kodun ilk satırı ve son satırı hariç aradaki satırları kopyalayıp CommandButton kod bloğuna taşıyıp kullanabilirsiniz.

Butonun grafik sayfasında olmasına dikkat edin. Eğer başka sayfada kullanacaksanız kod içinde ActiveSheet yazan yeri Sheets("Grafik") olarak değiştirmelisiniz.

 

[NIGRA]

Kodun ilk satırı ve son satırı hariç aradaki satırları kopyalayıp CommandButton kod bloğuna taşıyıp kullanabilirsiniz.

Butonun grafik sayfasında olmasına dikkat edin. Eğer başka sayfada kullanacaksanız kod içinde ActiveSheet yazan yeri Sheets("Grafik") olarak değiştirmelisiniz.

Evet abi bunu denedim olmamıştı, parantez içleri karışmış teşekkür ederim oldu bu sefer.