- Katılım
- 12 Mart 2009
- Mesajlar
- 119
- Excel Vers. ve Dili
- Office 365 - Ingilizce
Merhaba,
Asagidaki kod ile pivot table dan detaylari yeni bir taba cikariyorum ve bu tabi farkli bir dosya olarak kaydediyorum. Tab ismini (ayni zamanda kaydedecegim dosya ismini) dosyadaki O2 hucresinden aliyorum. Fakat sorun su ki, liste bitince en alt satirdaki "Grand Total" olanida cikariyor ve O2 hucresinde ayni veri oldugu icin dosya ismi ayni oluyor ve hata veriyor. Totale ihtiyacim yok, yani bu kod uzerinden "Grand Total" satirini cikarmasini engelleyebilir miyim? O satira gelince tekrarin bitmesi gerekiyor.
Simdiden yardimlariniz icin cok tesekkurler,
Ferdi
Asagidaki kod ile pivot table dan detaylari yeni bir taba cikariyorum ve bu tabi farkli bir dosya olarak kaydediyorum. Tab ismini (ayni zamanda kaydedecegim dosya ismini) dosyadaki O2 hucresinden aliyorum. Fakat sorun su ki, liste bitince en alt satirdaki "Grand Total" olanida cikariyor ve O2 hucresinde ayni veri oldugu icin dosya ismi ayni oluyor ve hata veriyor. Totale ihtiyacim yok, yani bu kod uzerinden "Grand Total" satirini cikarmasini engelleyebilir miyim? O satira gelince tekrarin bitmesi gerekiyor.
Kod:
Dim c As Range
Dim Cntry As Variant
Dim wb As Workbook
With ActiveSheet.PivotTables(1)
For Each c In .DataBodyRange.Resize(, 1)
c.ShowDetail = True
On Error GoTo errHandler
Cntry = Range("O2").Value
ActiveSheet.Name = Cntry
Dim ws2 As Worksheet
Set ws2 = ActiveSheet
ws2.Move
Set wb = ActiveWorkbook
Ferdi