Merhaba pivot tabloda dilimleyici ile çalışıyorum. dilimleyicide 16 personel var. dilimleyicide seçilen ismi farklı bir hücreye yazdırmak istiyorum. listboxtaki linked cell gibi. dilimleyici ismi "PERSONEL" tekli seçimde kullanacağım. bunu makro ile yazmak mümkün mü? yardım edebilir misiniz?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Pivot Dilimleyicideki seçimi farklı hücreye yazdırma
- Konbuyu başlatan TONGUCUM
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu deneyin.
Ya da Pivot tablonun bulunduğu sayfanın kod sayfasına aşağıdaki kodu kopyalayın. Böylece dilimleyiciye tıkladığınızda seçilen isim hücreye yazılacaktır.
Kod:
For Each secilen In ActiveWorkbook.SlicerCaches("Dilimleyici_PERSONEL").SlicerItems
If secilen.Selected = True Then Range("A1") = secilen.Name
NextYa da Pivot tablonun bulunduğu sayfanın kod sayfasına aşağıdaki kodu kopyalayın. Böylece dilimleyiciye tıkladığınızda seçilen isim hücreye yazılacaktır.
Kod:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
For Each secilen In ActiveWorkbook.SlicerCaches("Dilimleyici_PERSONEL").SlicerItems
If secilen.Selected = True Then Range("A1") = secilen.Name
Next
End Sub
Son düzenleme:
Yardımınız için çok teşekkür ederim.
ilk yollamış olduğunuz kod çalışmadı, hata vermiyor ancak hücreye yazdırmıyor.
2. yolladığınız kod tek pivota bağlıyken çalıştı.
Ancak eksik anlatmış olabilirim, dilimleyici 1den fazla pivota rapor bağlantısı ile bağlı. bu durumda çalışmıyor.
pivot charts ve dilimleyiciyi, pivotlardan farklı bir sayfada kullanıyorum bu şekilde hata verdi.
Dilimleyiciyi ilk oluşturduğum pivotla aynı sayfada iken diğer pivotlara bağladığımda da çalışmadı.
" For Each secilen In ActiveWorkbook.SlicerCaches("Dilimleyici_PERSONEL").SlicerItems" runtime 1004 kodu ile bu satırda hata veriyor.
İlginiz için çok teşekkür ederim.
Son bir ekleme,
Pivotu, veri modeline ekle seçerek oluşturuyorum.
Veri modeline ekleyerek oluşturulan pivotlarda tek başına olduğunda bile çalışmıyor.
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyanızı görmeden yorumlamak zor. Bir örnek dosya eklermisiniz.
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
.
Buradaki dosyayı inceleyin. İşinize yarayabilir.
.
Buradaki dosyayı inceleyin. İşinize yarayabilir.
.
İlginiz için teşekkür ederim. Veri modeline eklemeden oluşturduğumda çalıştı.
güzel bir çalışma çok teşekkür ederim