Çözüldü Pivot Slicer ile okunan filtrelenmiş datayı otomatik güncellemek.

[KoNFiCuS]

Merhaba Üstadlar,

Ana sayfada pivot ile hazırlanmış DATA yı özetlediğim alan bulunmaktadır. Çok basit A1 ve B1 de filtre vardır ve boş olan hariç göster şeklinde çalışmaktadır.

Pivot slicer ile seçim yaptığımda filtreyi nasıl güncelleştirebilirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Sheets("FM_Ozet").AutoFilter.ApplyFilter
   Worksheets("FM_Ozet").Range("A2:b100").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlFilterValues

End Sub

Yaptığımda istediğimi yapıyor ama illa bir yerlere basmam gerekiyor. Bir yere basmadan filtre güncellemesini nasıl yaptırırım. ( zaten slicer ile fare tıklaması yapıyorum bunu okuyan bir kod var mı? )

Teşekkürler.

 

[Levent Menteşoğlu]

Yaptığımda istediğimi yapıyor ama illa bir yerlere basmam gerekiyor. Bir yere basmadan filtre güncellemesini nasıl yaptırırım. ( zaten slicer ile fare tıklaması yapıyorum bunu okuyan bir kod var mı? )

Kodlarınızı Worksheet_Change olayına yazın.

 

[KoNFiCuS]

Kodlarınızı Worksheet_Change olayına yazın.

Hocam denemiştim tekrar denedim, worksheet te herhangi bir hücrede değişiklik olmadığından işlem yapmıyor. Eğer herhangi bir hücrede işlem yaparsam uyguluyor. Zaten yukarıdaki kod değişiklik yapmadan sadece başka biryere tıklamamla çalışıyor.

Yabancı kaynakları da inceledim, 1-2 tane benim sorumun aynısını buldum ama yanıt gelmemiş.

Bir kişi sadece mouse sol tık fonksiyonu kullanmaya çalışmış o da 64 bit lerde çalışmıyor.

 

[maliex]

 

[KoNFiCuS]

Hocam orada yazan her bir seçeneği tek tek denedim. Hatta pivotu update eden bir macro ile filtre güncellemeye çalıştım. Hiç biri çalışmadı.



Aktif Filtrem budur, örnek dosya ektedir.

 

[Levent Menteşoğlu]

Dosyanızdaki vbe editörü şifreli.

 

[KoNFiCuS]

Dosyanızdaki vbe editörü şifreli.

Özür diliyorum düzeltildi

 

[Levent Menteşoğlu]

Aşağıdaki kodu "PVT" sayfasının kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Target.Name = "PivotTable5" Then
Sheets("FM_Ozet").AutoFilter.ApplyFilter
Worksheets("FM_Ozet").Range("A2:b100").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlFilterValues
End If
End Sub

 

[KoNFiCuS]

Aşağıdaki kodu "PVT" sayfasının kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Target.Name = "PivotTable5" Then
Sheets("FM_Ozet").AutoFilter.ApplyFilter
Worksheets("FM_Ozet").Range("A2:b100").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlFilterValues
End If
End Sub

Çok teşekkür ederim @Levent Menteşoğlu bey, ben hep Özette işlem yapmam gerektiğini düşünmüştüm meğerse PVT de yapmak gerekliymiş. Tam istediğim gibi oldu.