Where this error in the pivot??

[pakilprogramador]

please help me??

where is the error when creating the pivot

regards

 

[Nebu]

Hi

Please find the attached, the problem with ur macro was the name of the pivot table changes each time u make a new pivot. Hence, you have to make ur pivot table name dynamic.

Thanks
Nebu

 

[pakilprogramador]

muchas gracias Nebu,

ahora efectivamente mi problema con tabla dinamica quedo resuelto.

un abrazo de antemano.

thank so much,
regard,

 

[Nebu]

My pleasure , learned something new today

 

[Hui]

Public Sub Create_Pivot_1()

Worksheets("Raw_Data").Activate
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range("A1:G" & lastrow)
Worksheets.Add
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Raw_Data!" & Rng.Address).CreatePivotTable TableDestination:=ActiveSheet.Range("A1")
   
With ActiveSheet.PivotTables(ActiveSheet.PivotTables.Count).PivotFields("Part")
  .Orientation = xlRowField
  .Position = 1
End With
With ActiveSheet.PivotTables(ActiveSheet.PivotTables.Count).PivotFields("Type")
  .Orientation = xlColumnField
  .Position = 1
End With
ActiveSheet.PivotTables(ActiveSheet.PivotTables.Count).AddDataField ActiveSheet.PivotTables( _
  ActiveSheet.PivotTables.Count).PivotFields("QTY"), "Sum of QTY", xlSum
   
End Sub

 

[pakilprogramador]

thanks so much Hui ,I appreciate for your time and effort.

regards,