i have created a pivot table code where it check’s the duplicte row.but it is specific for a single table. i want it to be modified such that it should be useful for any table with any number of fields. the code is as follows. please help me to modify such that it will be useful for any table.please help me out
Range(“A1”).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
“Sheet2!R1C1:R222C6″).CreatePivotTable TableDestination:=””, TableName:= _
“PivotTable4”, DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables(“PivotTable4”).AddFields RowFields:=Array( _
“RED_PWR_SUPP”, “PRODUCT_FAMILY”, “BM_FF_RPS_SUPPORTS”, _
“RED_PWR_SUPP_STD_RELEVANT”, “RED_PWR_SUPP_PERF_RELEVANT”, _
“RED_PWR_SUPP_REMOVE_QNTY”)
ActiveSheet.PivotTables(“PivotTable4”).PivotFields(“PRODUCT_FAMILY”). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
Range(“A4”).Select
ActiveSheet.PivotTables(“PivotTable4”).PivotFields(“RED_PWR_SUPP”). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range(“B4”).Select
ActiveSheet.PivotTables(“PivotTable4”).PivotFields(“PRODUCT_FAMILY”). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range(“C4”).Select
ActiveSheet.PivotTables(“PivotTable4”).PivotFields(“BM_FF_RPS_SUPPORTS”). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range(“D4”).Select
ActiveSheet.PivotTables(“PivotTable4”).PivotFields( _
“RED_PWR_SUPP_STD_RELEVANT”).Subtotals = Array(False, False, False, False, False _
, False, False, False, False, False, False, False)
Range(“E4”).Select
ActiveSheet.PivotTables(“PivotTable4”).PivotFields( _
“RED_PWR_SUPP_PERF_RELEVANT”).Subtotals = Array(False, False, False, False, _
False, False, False, False, False, False, False, False)
Range(“F4”).Select
ActiveSheet.PivotTables(“PivotTable4”).PivotFields( _
“RED_PWR_SUPP_REMOVE_QNTY”).Subtotals = Array(False, False, False, False, False, _
False, False, False, False, False, False, False)
End Sub