Pivot Table

  • Thread starter Thread starter Nedan Nedzatra
  • Start date Start date
N

Nedan Nedzatra

Hia!

Happy New Year Friends.

I have spent almost 3 hours not but I am not able to spot the bug;

The following codes create a Pivot Table but the table does not generate
reports except for the field headings;

Sub SalesReports()

Dim pc As PivotCache
Dim pt As PivotTable

Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=Range("b5:g39"))

Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc,
tabledestination:=Range("i5"))

Application.GoTo Range("i5")

End Sub

What is the problem in the codes?

Thanks.
 
Hia

Sorry for any inconvenience caused mates!

It seems if the actual data do not follow headers in the immediate cell
below programmatically generated Pivot Tables would not work. Still I do not
understand why but hope this piece of information might be userful to
starters.

Thanks.
 
Back
Top