Soru Pivot hk. yardım

[bthn35]

Merhaba,
Excel'de Rapor sekmesinde 3 tane Pivot tablo var, bunlarda aşağıdaki değişiklileri yapmak mümkün mü? Talep Raporu günlük olarak sürekli değişiyor, bunun için böyle bir yapıya ihtiyacım var.

• B1, B10 ve B20'deki tarih alanlarını tek yerden değiştirebilir miyim?
• Talep Raporu sekmesinde P ve K alanlarında yazan tarihler normalde tarih ve saat şeklinde (Örnek: 3.03.2025 13:08:53), ben bunu Metni Sütunlara dönüştür yaparak saatleri ayırıyorum. Saatleri ayırmadan tarih alanlarında (B1, B10 ve B20) sadece tarih görebileceğim bir yolu var mı?
• Rapor sekmesinde E4, E14 ve E24'te B+C'nin toplamını yazmak istiyorum ancak formülle yazınca bayi isimleri çoğalınca sürekli ayar yapmam gerekiyor, bunu Pivot'ta bir formülle yapabilir miyim?
• Rapor sekmesinde E4, E14 ve E24'e göre büyükten küçüğe otomatik sıralayabilir mi?

 

[Korhan Ayhan]

Merhaba,

Benim önerilerim...

1. Tarihler için sayfaya DİLİMLEYİCİ ekledikten sonra DİLİMLEYİCİ üzerinde sağ tıklayıp "Rapor Bağlantıları" seçeneğine tıkladığınızda size sayfadaki Pivot tabloların listesini çıkaracaktır. Oradan bağlantı kurmak istediğiniz Pivot tabloların solundaki onay kutularını işaretleyerek işlem yapabilirsiniz. Sonrasında tarih seçerek tüm Pivot tablolarda aynı anda işlem yapmış olursunuz.
2. B+C toplamı için kaynak veride yardımcı sütun kullanmanız gerekir.
3. Aynı şekilde tarih+saat verileri içinde yardımcı sütun kullanmanız gerekir.
4. Sıralam işlemini Pivot üerinde yapabilirsiniz.

Belki Pivot konusunda uzman arkadaşların daha efektif çözüm önerileri olabilir...

 

[hamitcan]

PivotTable3 tarih alanında bir seçim yaptığınızda diğer pivotlar(4 ve 5) içinde de aynı seçimleri yapıyor.

'Rapor sayfasının kod kısmına aşağıdaki kodu yapıştırın.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    If Target.Name = "PivotTable3" Then
    Makro43
    End If
End Sub
'Bir Module içine aşağıdaki kodu yapıştırın.
Option Base 1
Sub Makro43()

  
  
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("TALEP_GIRIS_TARIHI")
        For Each pvtItem In .HiddenItems
            ReDim Preserve arr2(1 To .HiddenItems.Count)
            k = k + 1
            arr2(k) = pvtItem.Name
        Next
    End With
  
  
    With ActiveSheet.PivotTables("PivotTable4").PivotFields("TALEP_GIRIS_TARIHI")
        For j = 1 To .PivotItems.Count
            .PivotItems(j).Visible = True
        Next
            On Error Resume Next
            For ii = 1 To UBound(arr2)
           .PivotItems(arr2(ii)).Visible = False
        Next
    End With

With ActiveSheet.PivotTables("PivotTable5").PivotFields("MEMO_KAPANIS_TARIHI")
        For j = 1 To .PivotItems.Count
            .PivotItems(j).Visible = True
        Next
            On Error Resume Next
            For ii = 1 To UBound(arr2)
           .PivotItems(arr2(ii)).Visible = False
        Next
    End With

End Sub

 

[hamitcan]

Ayrıca PivotTable içinde Değerler alanı için formül yazabilirsiniz.