Dinamik Pivot Table

[ybilgin]

Arkadaşlar hepinize merhaba,
Forumdan çook uzun zaman ayrı kaldım, özlemişim burayı,
Bir problemim var. Daha önce kullandığı bir makro vardı. şimdi bulamıyorum.
Pivot table yapıldığında mevcut olan tablomuza göre yapılıyor bilindiği gibi,
kısa bir kod vardı, bu kodu kullanarak, tablomuz da yapılan değişiklikler kolon ve sütunları ve verileri tesbit edip pivot tableyi otomatik olarak yeniliyordu.
bu kodu aradım aradım bulamadım.
Ne yapabiliriz.

 

[Kemal Demir]

Örnek dosya üzerinden gitsek.

ÖRNEKTİR:

sonnokta = [a65536].End(3).Row
'yukarıdaki kod ile son dolu satır

Range("a1").Select
sonkolon = Range(Selection, Selection.End(xlToRight)).Count
'yukarıdaki kod ile son kolon numarası.

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R" & [b][u]sonnokta[/u][/b] & "C" & [b][u]sonkolon[/u][/b]).CreatePivotTable TableDestination:="", TableName:= 
        "PivotTable1", DefaultVersion:=xlPivotTableVersion10

 

[ybilgin]

sayın rakkaş örnek istemiştiniz, bir örnek veriyorum. veri sayfasında ki veriler gitgide uzayacak farklı projeler, farklı kamyoncular, ve farklı moloz yerleri eklenecek. pivot table yenilendiğinde, en son eklenen verileride kapsasın istiyorum.
teşekkürler.

 

[Kemal Demir]

Sub Macro1()
sonnokta = Sheets(1).[a65536].End(3).Row
'yukarıdaki kod ile son dolu satır
Sheets("veri").Select
Range("a1").Select
sonkolon = Sheets("veri").Range(Selection, Selection.End(xlToRight)).Count
Sheets("pivot").Select
'yukarıdaki kod ile son kolon numarası.
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "veri!R1C1:R" & sonnokta & "C" & sonkolon
    ActiveWorkbook.ShowPivotTableFieldList = True
    Application.CommandBars("PivotTable").Visible = False
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

Yukarıdaki kod u deneyiniz.

 

[Zeki Gürsoy]

Arkadaşlar hepinize merhaba,
Forumdan çook uzun zaman ayrı kaldım, özlemişim burayı,
Bir problemim var. Daha önce kullandığı bir makro vardı. şimdi bulamıyorum.
Pivot table yapıldığında mevcut olan tablomuza göre yapılıyor bilindiği gibi,
kısa bir kod vardı, bu kodu kullanarak, tablomuz da yapılan değişiklikler kolon ve sütunları ve verileri tesbit edip pivot tableyi otomatik olarak yeniliyordu.
bu kodu aradım aradım bulamadım.
Ne yapabiliriz.

Forumdan azami ölçüde faydalanamadığınızı tahmin ediyorum.

Burayı inceler misiniz?

Dynamic Range- Dinamİk Alan

 

[ybilgin]

sayın rakkas aradığım tam olarak buydu.
yardımlarınız için teşekkür ediyorum.
sağlıcakla kalın.

 

[Kemal Demir]

Sn ybilgin,

Ustadların önermiş oldugu linklere gözatmanızı öneririm.