Soru Pivot Tablo 3 soru

[NIGRA]

Merhaba arkadaşlar,

1 sayfada 4 adet pivot tablo ekledim. Bunlar için engellemek istediğim kısım var.

1- Korumalı sayfadan pivot veri çekmediği için ilgili sayfanın korumasını kaldırmak zorunda kaldım. Bunu aşabileceğim bir makro var mıdır?
2- Pivot tablo sayfasında grafikler üzerinde oynama yapılmasını engellemek istiyorum bunu nasıl yapabilirim?
3- Pivot tablo da bulunan kategorilerden birisine işleme yapmadığımda bu pivot tabloda olmuyor. Bunu seviyorum bundan yana sorun yok. Ancak oto güncelleme yapması için aşağıdaki makro kodunu kullanıyorum. Pivota eklenmemiş ilk veriyi çektiği sayfaya işlediğimde arkasından pivot grafik sayfasını açtığımda ekranın ortasına veri eklensin mi diye sorduğu bir soru geliyor. Bu soru gelmeden otomatik eklemesini nasıl sağlayabilirim?

 

[NIGRA]

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


kodu eklemeyi atlamışım pardon.

 

[NIGRA]

Yardımcı olabilecek birisi yok mu üstatlar?

 

[NIGRA]

@Korhan Ayhan üstat yok mu bir fikrin?

 

[Korhan Ayhan]

Fikir çok...

 

[NIGRA]

Fikir çok...

Paylaşsan

 

[NIGRA]

Fikir çok...

Abi bi el atmayacak mısın

 

[NIGRA]

@Korhan Ayhan

Abi ciddi cevap vermeyecek misin? fikir çok dedin bir daha bişi demedin?

 

[NIGRA]

Güncel..

 

[Korhan Ayhan]

Örnek dosyanızı paylaşınız.

 

[NIGRA]

Örnek dosyanızı paylaşınız.

Abi düz 3 pasta grafiğinden bahsediyorum aslında tamam ekleyeyim az sonra

 

[Korhan Ayhan]

Korumadan falan bahsetmişsiniz. Aynı işlemleri uyguladığınız örnek dosyayı paylaşın üzerinden çözüm üretelim.

 

[NIGRA]

Korumadan falan bahsetmişsiniz. Aynı işlemleri uyguladığınız örnek dosyayı paylaşın üzerinden çözüm üretelim.

Grafik sekmesinde gereken tüm açıklamaları ön izlemeli olarak yaptım abi.

 

[NIGRA]

@Korhan Ayhan ben ilgili uyarının gelmesini de çözdüm abi artık o uyarı gelmiyor.

Sadece bana grafikler üzerinde ki oynama kısmı kaldı onu çözebilirsek tamamdır.

Ektedir tekrar.

 

[Korhan Ayhan]

Merhaba,

İlk sorunuz için eğer pivot tablolar güncelleme sırasında üst üste binerse bu uyarıyı alırsınız. Pivotlar arasında yeteri kadar boş satır bırakarak bu sorunu çözebilirsiniz. Ya da pivot tabloları alt alta değilde yan yana konumlandırarak çözüm üretebilirsiniz.

İkinci sorunuza gelince; eğer pivot tabloyu korumaya almak istiyorsanız sayfa koruması uygulamalısınız. Bu durumda sayfadaki makroyu aşağıdaki gibi değiştirebilirsiniz.

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

 

[NIGRA]

Merhaba,

İlk sorunuz için eğer pivot tablolar güncelleme sırasında üst üste binerse bu uyarıyı alırsınız. Pivotlar arasında yeteri kadar boş satır bırakarak bu sorunu çözebilirsiniz. Ya da pivot tabloları alt alta değilde yan yana konumlandırarak çözüm üretebilirsiniz.

İkinci sorunuza gelince; eğer pivot tabloyu korumaya almak istiyorsanız sayfa koruması uygulamalısınız. Bu durumda sayfadaki makroyu aşağıdaki gibi değiştirebilirsiniz.

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

Teşekkürler oldu. Elinize sağlık.

 

[Korhan Ayhan]

Koruma durumunu sanırım çözdünüz.

 

[NIGRA]

Koruma durumunu sanırım çözdünüz.

evet evet diğer 2 sorunun cevabını buldum abi,
koruma durumunda kilit seçeneklerinden pivotu etkileyenleri kaldırdım. O çözülmüş oldu.

Diğer uyarı sorunu da tablo dışında dolgu vardı sayfada dolguyu kaldırıp, klavuz çizgilerini kaldırdım. Uyarı vermeden eklemeye başladı o da böyle çözüldü.

Grafiklerde ki oynama da sizin verdiğiniz kodla çözüldü.

teşekkürler.

 

[NIGRA]

Merhaba,

İlk sorunuz için eğer pivot tablolar güncelleme sırasında üst üste binerse bu uyarıyı alırsınız. Pivotlar arasında yeteri kadar boş satır bırakarak bu sorunu çözebilirsiniz. Ya da pivot tabloları alt alta değilde yan yana konumlandırarak çözüm üretebilirsiniz.

İkinci sorunuza gelince; eğer pivot tabloyu korumaya almak istiyorsanız sayfa koruması uygulamalısınız. Bu durumda sayfadaki makroyu aşağıdaki gibi değiştirebilirsiniz.

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

Abi bu kodu şifreli olarak yazma imkanımız nedir? mesela 12354 şifresi ile?
sayfa korumasına şifre koymaya uyarlayabiliyor muyuz bunu?

 

[Korhan Ayhan]

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