Dynamic subtotals macro to

RAM1972

Board Regular
Joined
Jun 29, 2014
Messages
217
Hi All Guys

I have to 2 format templates sheets but same principle apply for both

Make a subtotal of Tariff description origin header as the primary key with qty litres sugar and amount

the other format does not contain litres and sugar but header column slightly differ see attached sheet

One sheet expected results column headers O,P,S,T

ANOTHER WORKBOOK sheet expected results column HEADERS L, M N O T V.

Actually doing manually with subtotals, F5 SPECIAL VISIBLE CELLS AND COPY REQUIRED HEADERS TO SUMMARY.

Looking for a macro to make dynamic subtotals for these colums mentioned above and then transfered it summary sheet for further process as it is repetitive process each time so as save me time I am overloaded andme crazy

Note the subtotals can reach up 900 subtotals with a data set of 10000 to to 15000 rows .

Hope anyone who knows vba to help me in this tedious task am looking looking to automate this process
:confused::confused::confused:

Original data

POSupplier Invoice No Page LineManifeste PoORIGINTariff DescriptionLENPORLREVITEMNOITEMDESCVENDITEMNOTariff Description OriginSupp QtyOQOUTSTANDUNITCOSTEXTENTED ItemisedDetails
12776aaaaaaa15063175P1114FR32089010VARNISHES810000058905VERNIS MARIN 0,5L BRILLANT INCOLORE10613532089010 VARNISHES FR229.0618.12 1
12776scds15063175P1214FR32089010VARNISHES820000058896VERNIS EXTERIEUR BSC 0,5L BRILLANT INCOLORE1396232089010 VARNISHES FR228.2116.42 1
12776vdsv15063175P1314FR32089010VARNISHES830000058899VERNIS EXTERIEUR BSC 0,5L SATINE INCOLORE1396332089010 VARNISHES FR228.2116.42 1
12776sdsfsd15063175P1414FR32089010VARNISHES840000058900VERNIS EXTERIEUR BSC 1L SATINE INCOLORE1397132089010 VARNISHES FR2213.9927.98 1
12776dsvdsvs15063175P1514FR32089010VARNISHES850000058907VERNIS MARIN 1L BRILLANT INCOLORE1398032089010 VARNISHES FR2215.3830.76 1
12776dsvdsvs15063175P1614FR32089010VARNISHES860000058906VERNIS MARIN 0,5L BRILLANT AMBRE31442032089010 VARNISHES FR449.0636.24 1
12776sdvsdvsdv15063175P1714FR32089010VARNISHES870000058908VERNIS MARIN 1L BRILLANT AMBRE31442132089010 VARNISHES FR2215.3830.76 1
12776sdvsdvsdv15063175P1814FR32089010VARNISHES880000058913VERNIS CUISINE SALLE DE BAINS AQUA 0,5L INCOLORE NATUREL31445132089010 VARNISHES FR227.615.2 1
12776sdvsdvsdv15063175P1914FR32089010VARNISHES890000058914VERNIS CUISINE SALLE DE BAINS AQUA 1L INCOLORE NATUREL31446232089010 VARNISHES FR3313.0439.12 1
12776sdvsdvsdv15063175P11014FR32089010VARNISHES8100000058902VERNIS EXTERIEUR BSC 0,5L MAT INCOLORE5350432089010 VARNISHES FR118.218.21 1
12776sdvsdvsdv15063175P11114FR32089010VARNISHES8110000058909VERNIS MARIN 0,5L SATINE INCOLORE53789032089010 VARNISHES FR449.0636.24 1
12776sdvsdvsdv15063175P2114FR32089010VARNISHES8120000058912VERNIS EXTERIEUR ULTRA RESISTANT 1L INCOLORE53790932089010 VARNISHES FR2218.3536.7 1
12998sdvsdvsdv1520249P3713FR39172900TUBE8510000045015TUBE ROND PVC BLANC 10X1,2-1 M2002-8046039172900 TUBE FR10100.585.8 1
12992sdvsdvsdv15620151P11719CN39173300FLEXIBLE TUBINGS8180000065611FLEXIBLE ACIER INOXYDABLE 150 CM - COULEUR CHROME310010239173300 FLEXIBLE TUBINGS CN661.42838.5698 1
12992sdvsdvsdv15620151P11819CN39173300FLEXIBLE TUBINGS8190000065614FLEXIBLE PVC 150 CM - NOIR/ARGENT310310339173300 FLEXIBLE TUBINGS CN661.28837.7298 1
12992sdvsdvsdv15620151P11919CN39173300FLEXIBLE TUBINGS8200000065617FLEXIBLE PVC 200 CM - BLANC/ARGENT310710039173300 FLEXIBLE TUBINGS CN661.73810.428 1
12992sdvsdvsdv15620151P12019CN39173300FLEXIBLE TUBINGS8210000065618FLEXIBLE PVC 200CM - NOIR/ARGENT310810339173300 FLEXIBLE TUBINGS CN661.738310.4298 1
12992sdvsdvsdv15620151P12119CN39173300FLEXIBLE TUBINGS8220000065619FLEXIBLE EXTENSIBLE ACIER INOXYDABLE 180 A 230 CM - COULEUR310910239173300 FLEXIBLE TUBINGS CN662.5215.12 1
12992sdvsdvsdv15620151P2119CN39173300FLEXIBLE TUBINGS8230000065620FLEXIBLE PVC 200 CM - GRIS311118039173300 FLEXIBLE TUBINGS CN661.936611.6196 1
12992sdvsdvsdv15620151P21219CN39173900PLASTIC TUBINGS FOR SHOWER8340000065633KIT DOUCHETTE 1 FONCTION ANTICALCAIRE + FLEXIBLE 150 CM - CO330010239173900 PLASTIC TUBINGS FOR SHOWER CN663.14818.888 1
12992sdvsdvsdv15620151P21319CN39173900PLASTIC TUBINGS FOR SHOWER8350000065635KIT DOUCHETTE 1 FONCTION PVC BLANC + FLEXIBLE PVC 150CM - BL330210039173900 PLASTIC TUBINGS FOR SHOWER CN662.76316.578 1
12992sdvsdvsdv15620151P21419CN39173900PLASTIC TUBINGS FOR SHOWER8360000065637KIT BARRE + DOUCHETTE 4 FONCTIONS ET ANTICALCAIRE + FLEXIBLE340110239173900 PLASTIC TUBINGS FOR SHOWER CN669.20355.218 1
12992sdvsdvsdv15620151P21519CN39173900PLASTIC TUBINGS FOR SHOWER8370000065638KIT BARRE CARREE 60 CM+DOUCHETTE RECTANGULAIRE 1FONCTION+FLE340310239173900 PLASTIC TUBINGS FOR SHOWER CN669.154.6 1
12770sdvsdvsdv298435P1115FR39209900PLASTIC SHEETS810000012855STYROGLASS CLAIR LISSE 2,5MM2 X 1 M6010139209900 PLASTIC SHEETS FR1125.3125.31 1
12770sdvsdvsdv298435P1215FR39209900PLASTIC SHEETS820000012854STYROGLASS CYRUS CLAIR 2,5MM2 X 1 M6010239209900 PLASTIC SHEETS FR3325.3175.93 1
12770sdvsdvsdv298435P1315FR39209900PLASTIC SHEETS840000012850STYROGLASS ANTIQUE CLAIR 2,5MM2 X 1 M6013439209900 PLASTIC SHEETS FR1125.3125.31 1
12770sdvsdvsdv298435P1415FR39209900PLASTIC SHEETS850000012851STYROGLASS ANTIQUE JAUNE 2,5MM2 X 1 M6013539209900 PLASTIC SHEETS FR1125.3125.31 1
12770sdvsdvsdv298435P1515FR39209900PLASTIC SHEETS860000012833STYROGLASS CLAIR LISSE 2,5MM1 X 1 M6020139209900 PLASTIC SHEETS FR1112.6512.65 1
12770sdvsdvsdv298435P1615FR39209900PLASTIC SHEETS870000012813STYROGLASS CYRUS CLAIR 2,5MM0,50 X 1 M6030239209900 PLASTIC SHEETS FR116.336.33 1
12770sdvsdvsdv298435P1715FR39209900PLASTIC SHEETS880000012857STYROGLASS CYRUS CLAIR 5MM1 X 1 M6520239209900 PLASTIC SHEETS FR2225.3150.62 1
12770sdvsdvsdv298435P1815FR39209900PLASTIC SHEETS890000012817STYROGLASS CLAIR LISSE 0.50X0.50 5MM0,50 X 1 M6550139209900 PLASTIC SHEETS FR336.3318.99 1
12770sdvsdvsdv298435P1915FR39209900PLASTIC SHEETS8100000012882STYROGLASS EN ROULEAU 1MM-1,25M - T356712539209900 PLASTIC SHEETS FR35356.78286237.4 1

<colgroup><col><col><col><col span="2"><col><col span="2"><col><col><col span="2"><col><col><col><col span="6"></colgroup><tbody>
</tbody>

doing subtotals manually macro require
POSupplier Invoice No Page LineManifeste PoORIGINTariff DescriptionLENPORLREVITEMNOITEMDESCVENDITEMNOTariff Description OriginSupp QtyOQOUTSTANDUNITCOSTEXTENTED ItemisedDetails
12776aaaaaaa15063175P1114FR32089010VARNISHES810000058905VERNIS MARIN 0,5L BRILLANT INCOLORE10613532089010 VARNISHES FR229.0618.12 1
12776scds15063175P1214FR32089010VARNISHES820000058896VERNIS EXTERIEUR BSC 0,5L BRILLANT INCOLORE1396232089010 VARNISHES FR228.2116.42 1
12776vdsv15063175P1314FR32089010VARNISHES830000058899VERNIS EXTERIEUR BSC 0,5L SATINE INCOLORE1396332089010 VARNISHES FR228.2116.42 1
12776sdsfsd15063175P1414FR32089010VARNISHES840000058900VERNIS EXTERIEUR BSC 1L SATINE INCOLORE1397132089010 VARNISHES FR2213.9927.98 1
12776dsvdsvs15063175P1514FR32089010VARNISHES850000058907VERNIS MARIN 1L BRILLANT INCOLORE1398032089010 VARNISHES FR2215.3830.76 1
12776dsvdsvs15063175P1614FR32089010VARNISHES860000058906VERNIS MARIN 0,5L BRILLANT AMBRE31442032089010 VARNISHES FR449.0636.24 1
12776sdvsdvsdv15063175P1714FR32089010VARNISHES870000058908VERNIS MARIN 1L BRILLANT AMBRE31442132089010 VARNISHES FR2215.3830.76 1
12776sdvsdvsdv15063175P1814FR32089010VARNISHES880000058913VERNIS CUISINE SALLE DE BAINS AQUA 0,5L INCOLORE NATUREL31445132089010 VARNISHES FR227.615.2 1
12776sdvsdvsdv15063175P1914FR32089010VARNISHES890000058914VERNIS CUISINE SALLE DE BAINS AQUA 1L INCOLORE NATUREL31446232089010 VARNISHES FR3313.0439.12 1
12776sdvsdvsdv15063175P11014FR32089010VARNISHES8100000058902VERNIS EXTERIEUR BSC 0,5L MAT INCOLORE5350432089010 VARNISHES FR118.218.21 1
12776sdvsdvsdv15063175P11114FR32089010VARNISHES8110000058909VERNIS MARIN 0,5L SATINE INCOLORE53789032089010 VARNISHES FR449.0636.24 1
12776sdvsdvsdv15063175P2114FR32089010VARNISHES8120000058912VERNIS EXTERIEUR ULTRA RESISTANT 1L INCOLORE53790932089010 VARNISHES FR2218.3536.7 1
32089010 VARNISHES FR Total28312.171
12998sdvsdvsdv1520249P3713FR39172900TUBE8510000045015TUBE ROND PVC BLANC 10X1,2-1 M2002-8046039172900 TUBE FR10100.585.8 2
39172900 TUBE FR Total105.82
12992sdvsdvsdv15620151P11719CN39173300FLEXIBLE TUBINGS8180000065611FLEXIBLE ACIER INOXYDABLE 150 CM - COULEUR CHROME310010239173300 FLEXIBLE TUBINGS CN661.42838.5698 3
12992sdvsdvsdv15620151P11819CN39173300FLEXIBLE TUBINGS8190000065614FLEXIBLE PVC 150 CM - NOIR/ARGENT310310339173300 FLEXIBLE TUBINGS CN661.28837.7298 3
12992sdvsdvsdv15620151P11919CN39173300FLEXIBLE TUBINGS8200000065617FLEXIBLE PVC 200 CM - BLANC/ARGENT310710039173300 FLEXIBLE TUBINGS CN661.73810.428 3
12992sdvsdvsdv15620151P12019CN39173300FLEXIBLE TUBINGS8210000065618FLEXIBLE PVC 200CM - NOIR/ARGENT310810339173300 FLEXIBLE TUBINGS CN661.738310.4298 3
12992sdvsdvsdv15620151P12119CN39173300FLEXIBLE TUBINGS8220000065619FLEXIBLE EXTENSIBLE ACIER INOXYDABLE 180 A 230 CM - COULEUR310910239173300 FLEXIBLE TUBINGS CN662.5215.12 3
12992sdvsdvsdv15620151P2119CN39173300FLEXIBLE TUBINGS8230000065620FLEXIBLE PVC 200 CM - GRIS311118039173300 FLEXIBLE TUBINGS CN661.936611.6196 3
39173300 FLEXIBLE TUBINGS CN Total3663.8973
12992sdvsdvsdv15620151P21219CN39173900PLASTIC TUBINGS FOR SHOWER8340000065633KIT DOUCHETTE 1 FONCTION ANTICALCAIRE + FLEXIBLE 150 CM - CO330010239173900 PLASTIC TUBINGS FOR SHOWER CN663.14818.888 4
12992sdvsdvsdv15620151P21319CN39173900PLASTIC TUBINGS FOR SHOWER8350000065635KIT DOUCHETTE 1 FONCTION PVC BLANC + FLEXIBLE PVC 150CM - BL330210039173900 PLASTIC TUBINGS FOR SHOWER CN662.76316.578 4
12992sdvsdvsdv15620151P21419CN39173900PLASTIC TUBINGS FOR SHOWER8360000065637KIT BARRE + DOUCHETTE 4 FONCTIONS ET ANTICALCAIRE + FLEXIBLE340110239173900 PLASTIC TUBINGS FOR SHOWER CN669.20355.218 4
12992sdvsdvsdv15620151P21519CN39173900PLASTIC TUBINGS FOR SHOWER8370000065638KIT BARRE CARREE 60 CM+DOUCHETTE RECTANGULAIRE 1FONCTION+FLE340310239173900 PLASTIC TUBINGS FOR SHOWER CN669.154.6 4
39173900 PLASTIC TUBINGS FOR SHOWER CN Total24145.2844
12770sdvsdvsdv298435P1115FR39209900PLASTIC SHEETS810000012855STYROGLASS CLAIR LISSE 2,5MM2 X 1 M6010139209900 PLASTIC SHEETS FR1125.3125.31 5
12770sdvsdvsdv298435P1215FR39209900PLASTIC SHEETS820000012854STYROGLASS CYRUS CLAIR 2,5MM2 X 1 M6010239209900 PLASTIC SHEETS FR3325.3175.93 5
12770sdvsdvsdv298435P1315FR39209900PLASTIC SHEETS840000012850STYROGLASS ANTIQUE CLAIR 2,5MM2 X 1 M6013439209900 PLASTIC SHEETS FR1125.3125.31 5
12770sdvsdvsdv298435P1415FR39209900PLASTIC SHEETS850000012851STYROGLASS ANTIQUE JAUNE 2,5MM2 X 1 M6013539209900 PLASTIC SHEETS FR1125.3125.31 5
12770sdvsdvsdv298435P1515FR39209900PLASTIC SHEETS860000012833STYROGLASS CLAIR LISSE 2,5MM1 X 1 M6020139209900 PLASTIC SHEETS FR1112.6512.65 5
12770sdvsdvsdv298435P1615FR39209900PLASTIC SHEETS870000012813STYROGLASS CYRUS CLAIR 2,5MM0,50 X 1 M6030239209900 PLASTIC SHEETS FR116.336.33 5
12770sdvsdvsdv298435P1715FR39209900PLASTIC SHEETS880000012857STYROGLASS CYRUS CLAIR 5MM1 X 1 M6520239209900 PLASTIC SHEETS FR2225.3150.62 5
12770sdvsdvsdv298435P1815FR39209900PLASTIC SHEETS890000012817STYROGLASS CLAIR LISSE 0.50X0.50 5MM0,50 X 1 M6550139209900 PLASTIC SHEETS FR336.3318.99 5
12770sdvsdvsdv298435P1915FR39209900PLASTIC SHEETS8100000012882STYROGLASS EN ROULEAU 1MM-1,25M - T356712539209900 PLASTIC SHEETS FR35356.782857237.399995 5
39209900 PLASTIC SHEETS FR Total48477.8499955
Summary sheet

Tariff Description OriginSupp QtyOQOUTSTANDUNITCOSTEXTENTED Itemised
32089010 VARNISHES FR Total28312.171
39172900 TUBE FR Total105.82
39173300 FLEXIBLE TUBINGS CN Total3663.8973
39173900 PLASTIC TUBINGS FOR SHOWER CN Total24145.2844
39209900 PLASTIC SHEETS FR Total48477.8499955
Grand Total1461005.000995



<colgroup><col><col><col><col><col><col></colgroup><tbody>
</tbody>
Grand Total1461005.000995

<colgroup><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>
@2nd sample

POInvoice Page Line RefDescription of GoodsHS CodeTariff No DescriptionNo of charctOriginTarif No Description Origin Qty_1Litres SugarQty QTYUnit @Amount
5648791111P112855727DATA090122000009012200GROUND COFFEEZA09012200 GROUND COFFEE ZA1212.00EA12.00EA1.9323.16
5648792222P114074678DATA090121000009012100COFFEEZA09012100 COFFEE ZA2424.00EA24.00EA2.5160.24
5648791111P124074692DATA090121000009012100COFFEEZA09012100 COFFEE ZA1212.00EA12.00EA2.5130.12
5648791111P134074726DATA090121000009012100COFFEEZA09012100 COFFEE ZA2424.00EA24.00EA2.5160.24
5648791111P144074740DATA090121000009012100COFFEEZA09012100 COFFEE ZA1212.00EA12.00EA2.5130.12
5648791111P154074829DATA090121000009012100COFFEEZA09012100 COFFEE ZA2424.00EA24.00EA2.5160.24
56487933333P1195017737DATA040291000004029100EVAPORATD MILK DE04029100 EVAPORATD MILK DE240240.00EA240.00EA0.61146.40
56487966666P2163951905DATA040229000004022900CARAMEL TOPPING UA04022900 CARAMEL TOPPING UA225225.00EA225.00EA0.79177.75
56487977777P1163837304DATA961900400096190040SANITARY PADSZA96190040 SANITARY PADS ZA1616.00EA16.00EA0.619.76
5648795555P1183568415DATA961900400096190040SANITARY PADSCN96190040 SANITARY PADS CN4848.00EA48.00EA0.5024.00
5648795555P796502887DATA961519000096159000HAIRSLIDESCN96159000 HAIRSLIDES CN4848.00EA48.00EA0.5124.48
5648795555P756556558DATA961519000096159000HAIR CLIPSCN96159000 HAIR CLIPS CN1818.00EA18.00EA0.173.06
5648795555P770616047DATA961590000096159000HAIR CLIPSCN96159000 HAIR CLIPS CN3030.00EA30.00EA0.267.80

<colgroup><col span="3"><col><col><col><col><col><col><col><col><col><col span="8"></colgroup><tbody>
</tbody>

subtotals manually

POInvoice Page Line RefDescription of GoodsHS CodeTariff No DescriptionNo of charctOriginTarif No Description Origin Qty_1Litres SugarQty QTYUnit @AmountDETAILSITEMISED
5648791111P112855727DATA090122000009012200GROUND COFFEEZA09012200 GROUND COFFEE ZA1212.00EA12.00EA1.9323.1611
09012200 GROUND COFFEE ZA Total120023.161
5648792222P114074678DATA090121000009012100COFFEEZA09012100 COFFEE ZA2424.00EA24.00EA2.5160.2422
5648791111P124074692DATA090121000009012100COFFEEZA09012100 COFFEE ZA1212.00EA12.00EA2.5130.122
5648791111P134074726DATA090121000009012100COFFEEZA09012100 COFFEE ZA2424.00EA24.00EA2.5160.242
5648791111P144074740DATA090121000009012100COFFEEZA09012100 COFFEE ZA1212.00EA12.00EA2.5130.122
5648791111P154074829DATA090121000009012100COFFEEZA09012100 COFFEE ZA2424.00EA24.00EA2.5160.242
09012100 COFFEE ZA Total9600240.962
56487933333P1195017737DATA040291000004029100EVAPORATD MILK DE04029100 EVAPORATD MILK DE240240.00EA240.00EA0.61146.403
04029100 EVAPORATD MILK DE Total24000146.403
56487966666P2163951905DATA040229000004022900CARAMEL TOPPING UA04022900 CARAMEL TOPPING UA225225.00EA225.00EA0.79177.754
04022900 CARAMEL TOPPING UA Total22500177.754
56487977777P1163837304DATA961900400096190040SANITARY PADSZA96190040 SANITARY PADS ZA1616.00EA16.00EA0.619.765
96190040 SANITARY PADS ZA Total16009.765
5648795555P1183568415DATA961900400096190040SANITARY PADSCN96190040 SANITARY PADS CN4848.00EA48.00EA0.5024.006
96190040 SANITARY PADS CN Total480024.006
5648795555P796502887DATA961519000096159000HAIRSLIDESCN96159000 HAIRSLIDES CN4848.00EA48.00EA0.5124.487
96159000 HAIRSLIDES CN Total480024.487
5648795555P756556558DATA961519000096159000HAIR CLIPSCN96159000 HAIR CLIPS CN1818.00EA18.00EA0.173.068
5648795555P77616047DATA961590000096159000HAIR CLIPSCN96159000 HAIR CLIPS CN3030.00EA30.00EA0.267.808
96159000 HAIR CLIPS CN Total480010.868
Grand Total73300657.37

<colgroup><col span="5"><col><col><col><col><col><col><col><col span="10"></colgroup><tbody>
</tbody>

summary

Tarif No Description Origin Qty_1Litres SugarQty QTYUnit @AmountDETAILSITEMISED
09012200 GROUND COFFEE ZA Total120023.161
09012100 COFFEE ZA Total9600240.962
04029100 EVAPORATD MILK DE Total24000146.403
04022900 CARAMEL TOPPING UA Total22500177.754
96190040 SANITARY PADS ZA Total16009.765
96190040 SANITARY PADS CN Total480024.006
96159000 HAIRSLIDES CN Total480024.487
96159000 HAIR CLIPS CN Total480010.868
Grand Total73300657.37

<colgroup><col><col span="5"><col><col><col span="3"></colgroup><tbody>
</tbody>
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

Forum statistics

Threads
1,215,018
Messages
6,122,703
Members
449,093
Latest member
Mnur

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top