birden fazla özet tablolarda otomatik aralık bırakmak

[matrax410]

merhabalar,

aynı sayfada alt alta birden fazla özet tablo bulunmaktadır. Makro ile tümünü yenileyebiliyorum. fakat satır etiketlerinin sayıları çok olduğu zaman üstteki tablo alttaki özet tabloyu ezmektedir. satır etiketlerin durumuna göre alttaki tabloyu üstteki tablonun bitişine göre aşağıya kaydırmak mümkünmüdür.

teşekkürler,
saygılarımla ,

 

[matrax410]

merhabalar,

dosyayı inceleme şansımız oldumu acaba. olabilirliği var mıdır?

destekleriniz için teşekkürler,
saygılarımla,

 

[matrax410]

merhaba üstadlarım ,

hatırlatmak istedim bel ki bir çözüm yolu vardır.

 

[md3m1ray]

merhaba. sayfa ismini ve pivot isimlerini değiştirerek (üstekinden alta doğru girin isimlerini) dener misiniz

Option Explicit
Sub Refresh_Pivots()

Dim OTC As Worksheet
Set OTC = ThisWorkbook.Sheets("PİVOT")
Dim LRow As Long, i As Long, Pvts
Pvts = Array("PivotTable2", "PivotTable4", "PivotTable7", "PivotTable9")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    For i = LBound(Pvts) To UBound(Pvts)
        LRow = OTC.Range("E" & OTC.Rows.Count).End(xlUp).Offset(3).Row
        OTC.PivotTables(Pvts(i)).TableRange2.Cut OTC.Range("N" & LRow)
        OTC.PivotTables(Pvts(i)).PivotCache.Refresh
    Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True


End Sub

 

[matrax410]

merhaba hocam ,

üstteki pivot alttaki pivotu ezmeye çalıştığında , aşağıdaki hata alınmakta. Yukarda verdiğiniz kodları bir modülün içine kopyaladım. doğrumu yaptım acaba. sonrasında aşağıdaki hatayı aldım.

 

[md3m1ray]

sizin kodlarınız benim gönderdiğimden farklı .
benim attığım kodları bir butona veya bir değişkene (örneğin sayfada değişiklik yapıldığında çalışsın gibi) atayıp deneyebilirsiniz

 

[matrax410]

merhaba hocam ,

gönderdiğim dosyayı incelerseniz , dosya içinde sayfayı yenile butonu vardı. O butona tıkladığımda bu hatayı alıyorum.

 

[md3m1ray]

benim attığım kodları bir butona atayıp deneyiniz hem yenilenmesi hem de pivotların alt alta sıralanmasını sağlamak için