Özet tablo sorunu

[rustuuslu]

sayın hocalarım.Özet tabloda ilgili veriyi tıkladığımda sayfa kendisi sayfa2 veya sayfa6 şeklinde açıyor.
soru:bu sayfa açılmadan bu sayfa adını kendim nasıl verebilirim.sayfalar içinde hangisinin hangi veriyi ait olduğunu bakmam zaman alıyor.
yardımcı olursanız sevinirim.

 

[omerceri]

Aşağıdaki kodları ThisWorBook'un kod sayfasına yapıştırın.
Özet tablo oluştururken 3/3 adımda iletişim kutusunun altında bulunan "Seçenekler" Düğmesine tıklayın, Yine çıkan iletişim kutusunda bulunan "Adı"nın karşısına istediğiniz adı yazın ve işleminize devam edin. Tablo adı aynı zamanda sayfanın adı olacaktır. Tabi bu ad kitabınızda bulunan diğer sayfa adlarından biri ile aynı olmamalıdır.
Private Sub Workbook_NewSheet(ByVal Sh As Object)
a = ActiveSheet.PivotTables.Count
If a > 0 Then
Sh.Name = ActiveSheet.PivotTables(1).Name
End If
End Sub