microsoft.public.excel.programming

Dave Peterson

12/19/2006 8:35:00 PM

Use a dynamic name that grows/contracts with the data.

Check how Debra Dalgleish does it:
http://contextures.com/xlNames01.ht...

Aaron wrote:
>
> Hi Dave,
> This piece worked but also needed to know how to extend the source data as
> new records are added.
>
> Thanks,
> Aaron
>
> "Dave Peterson" wrote:
>
> > Untested...
> >
> > ...., tabledestination:=worksheets("Forecast").range("A1"), ...
> >
> > Aaron wrote:
> > >
> > > Hello,
> > >
> > > I have the following code that I need to change. I need the source data to
> > > check for the end of page and the Table Destination to be on a different tab
> > > (TabName: forecast)
> > >
> > > ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
> > > "'Forecasting Tool'!R2C1:R4784C44").CreatePivotTable
> > > TableDestination:=Range( _
> > > "A1"), TableName:="PivotTable1"
> > > ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
> > > ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Unique Ref1"
> > > With ActiveSheet.PivotTables("PivotTable1").PivotFields("Wk1 Forecast by
> > > Kit")
> > > .Orientation = xlDataField
> > > .Caption = "Max of Wk1 Forecast by Kit"
> > > .Function = xlMax
> > > End With
> > > End Sub
> > >
> > > Thanks!
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson