Makro Kaydedici İle Pivot Alma

[Kemal Demir]

Makro Kaydedici Ýle Pivot Alma

Arkadaslar Merhaba

Makro Kaydedici İle Pivot Almak İStiyorum
*********************
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"VERI!R1C1:R39C5").CreatePivotTable TableDestination:=Range("I1"), TableName _
:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ADET")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ÜRÜN")
.Orientation = xlRowField
.Position = 1
End With
Application.CommandBars("PivotTable").Visible = False
********************

data uzunluğ artıkca devamlı aralığı değiştirmek zorunda Kalıyorum.
Nasıl Bir ÞEy Yapmam Lazım.

Yada Onereceğiniz ETopla ( Genel Toplamlarını ) başka nasıl alabilirim.
İlgili Dosya Ektedir.


Saygılar.

 

[danersin]

http://www.excel.web.tr/viewtopic.php?t=5668

Bu linkteki konunun en sonunda DİNAMİK ALAN ADLARI başlıklı bölüm işinizi görür.
Tanımladığınız alan adını kodunuzda R1C1:R39C5 yerine yazın.

 

[Kemal Demir]

Sn. Danersin

Zannedersem ben yapamadım ve olmadı

ben anlamadım desem size karsı ayıp olurmu
Ama cözmek istiyorum.

Ekli Bir örnek ile yardımcı olursanız sevininirim.

SaygıLar.

 

[danersin]

Data sayfasında başka şeyler yazdığınızda dinamik alan bu formülle belirlenemiyor.
Her kod çalıştığında current region seçtirilerekte bu alan belirlenebilir ama böyle daha iyi. işinizi görürmü bir inceleyin.

 

[Kemal Demir]

cok tesekkur ederim